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BEGIN 
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'@ 
0 ‘® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
0 '® DIGITAL EQUIPMENT 1 CORPORATION, MAYNARD. MASSACHUSETTS. 
00 '® ALL RIGHTS RESERVED. 
'@ 
00 


He pal SOFTWARE IS A gt | oe UNDER A LICENSE AND MAY BE USED AND gd La 
Hid Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
Hi IN CLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE Y 

a MADE AVAILABLE TO ANY 
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‘ * 
'® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF * 
'@ TRANSFERRED. : 
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Hd SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
i CORPORAT ION. 
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!® SOFTWARE ON EQUIPMENT WHICH IS N 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 
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; i FACILITY: 
60 i Backup/Restore 
00 i ABSTRACT: 
a8 § ' This module contains the standalone ACP routines. 
0038 i ENVIRONMENT 
0039 i VAX/ VMS user mode. 
re a 
0048 AUTHOR: M. Jack, CREATION DATE: 01-Feb-1981 
9064 MODIFIED BY: 
0046 i v03-019 LMP0301 Mark 10--Auge -1984 8:3 

04 ; Fix a? o bye from LAO? 2 chat 7 ae BACKUP to ACCVIO eles 
B08 } an A 

50 1! v03-018 LY0516 25-JUL-1984 15:27 

0051 : Zero fill the FI. ta” STAC CENTER so that sequential disk save sets 

p2s will work again. 

054 1! v03-017 LMP0272 L. Mark Pilant, 3-Jul-1984 10:37 
0056 Add the FIB as an argument for the ACL processing. 

oa? i v03-016 ACG0415 Andrew C. Goldstein, 24-Apr-1984 18:18 
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Ib-5¢ =1984 00:42: AX-11 Bliss-32 V4.0-74 Pa 2 
1 =3e0n 138i 90:32:83 EBACKUP SRE STAAYB O3904 ” (1) 
Fix boundary bugs in ACL handling 

ACG0382 Andrew C. Goldstein, 16-Dec-1983 16:49 

Fix RVN usage in ACL processing: add validation for 

VCB_INIT_DONE in STA_CREATE and STA_DISMOUNT_OUTPUT. 

Add error cleanup in STA_ACCESS. 

ACG0365 Andrew f. Goldstein, 11-0ct-1983 14:48 

Tie off ACL processing in BACKUP sequential disk 

ACG53087 Andrew C. Goldstein, 30-Aug-1983 19:28 

Fix creation of save sets at end of MFD in seq disk 

ACGO352 Andrew C. Goldstein 22-Aug-1983 17:46 


Fix descriptor initialization bugs introduced in LMP0118; 
fix bug in mounting sequential disk volumes for input 


LMPO118 L. Mark Pilant, 9-Jun-1983 11:01 
Correct problems with trying to create a file whose ACL 
spans headers. 


ACG0332 Andrew C. Goldstein, 20-Apr-1983 17:58 
Add support for file highwater mark and RMS journal flags 


ACG0334 Andrew C. Goldstein, oti 14:39 
Fix inconsistencies in declaration of FILE_ERROR 


ACG0325 Andrew C. Goldstein 4-Apr-1983 15:52 
Fix file header area Length validation, add extended 
file name support. 


LMPO0085 L. Mark Pilant 22-Mar-1983 15:34 
Fix a problem that caused the file to remain open after 
giving an error about not being able to write the entire 


ACG0313 Andrew C. Goldstein, 11-Feb-1983 1:16 
Fix accumulation of blocks returned in STA_EXTEND. 
Also remove zeroing of bitmap of mounted disks. 


LMP0067 L. Mark Pilant, 15-Dec-1982 15:12 
Dealltocate memory obtained for ACL segment storage when the 
file is deaccessed. 


LMP0044 L. Mark Pilant, 33-Nov-1982 10:20 
Add support for saving and restoring ACL's. 

mL J0100 Martin L. Jack, 7-Oct-1982 15:04 

In write attributes, add range checking for length of ident 
area. 

ACG0281 Andrew C. Goldstein, 5-Apr-1982 16:02 
Add ODS-1 multi-header index file support 

ACG0279 Andrew C. Goldstein 1-Apr-1982 14:20 
Rework header processing in STA_EXTEND 
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STAACP Standalone ACP -Sep-19 242: AX-11 Bliss-32 V4.0-74 P 3 
y04-000 1exgeR=1382 99:82:83 — HBNCkup saeistaatesosee4 29? 4} 
v02-009 MLJ0081 nL. Jack, 26-Feb-1982 16:03 
Implement RETAINMIN® md RETAINMAX for new home block fields. 


v02-008 MLJ0075 Martin L. Jack, fre gs 7:26 
Correct access violation introduced in v02-007. 


v02-007 MLJ0062 rtin Jack, 10-Dec-1981 20:00 
Rework STA ACCESS 4 site 108. ACCESS without IOSM_ACCESS when 
file is alfeady accessed. This e pecnseery to avoid spurious 
FILALRACC errors when ie. multi-header files. 


v02-006 ACG0236 Andre Ldssein, 8-Dec-1981 21:45 
Check status from CACKACK unct 


v02-005 MLJ0054 Martin L. Jack, 20-Oct-1981 8:30 
= Lement /VOLUME. Reconstruct quota file + 4 yy output. 
Release disk space on a failed IO$_CREATE. spay ertinent 
file name in error messages issued by STA DISmo NT_OUTPUT and 
STA_INIT_HDRS. Move globals to common. Integrate GET_VM and 
FREE_VM Jacket routines. 


v02-004 MLJ0040 Martin Ti Jack seer -1981 19:42 
Clean up window on a failed 10$ CREAT E to avoid 
incorrect ‘file already accessed’ errors. 


v02-003 MLJ0039 Martin L. Jack, 3-Sep-1981 19:21 
Include general-mode addressing where required. 


v02-002 ACG0211 Andrew C. Goldstein, 22-Jul-1981 17:18 
Add logic to create save set files 


v02-001 MLJ0025 rtin L. Jack, 88-May-1981 14:24 
Move setting of Teese file bitmap into WRITE_HEADER. Improve 
documentation. Avoid creating window for IOS_ACCESS (and 
disallow STATBLK attribute) unless file is acfually accessed. 
Do preliminary work for file placement. 
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Standalone ACP 


-o 


*SRC$: COMMON’ ; 
*SYSSLIBRARY: (18'; 
"LIBS :BACKDEF '; 


LINKAGE 
L_DOF WRITE JENTRY = CALL: 
GCOBAL ( 
DOF _BUFFER=11, 
DOF “RECORD=10, 
DOF- 


VBN=9, 
DOF “DEFAULT_PERM= = 
DOF “DEFAULT-OVER=75; 


SANS Nn 
2 IT 


NOUS —OOOwW 


FORWARD ROUTINE 
DOF _FIND_UIC 
DOF “MOD IF Y_USAGE: 


NOVALUE 
DOF_WRITE_ENTRY:L_DOF_WRITE “ENTRY 


ASSIGN_INPUT_CHANNEL, 
ASSIGN_OUTPUT_ CHANNEL, 


IAW WII nnonononufnonunun) = 


NOVALUE, 
NOVALUE, 


STA _LBN 
STA “ALOE “BEST 


REE BLOCKS: * NOVALUE, 
NTER 


WINDOW, 
DELETE WINDOW: 
ADD_BLACKHOLE_MAP 


ADD _WINDOW_MAP: 
QIO_AST: 


NOVALUE, 


me em me me me a a a ad ad ed od = od = od = 8 ww 8 = 2 2 2 a sd 2 2 1 1 
PUPP IT SS BP BBE BEE SE PW 


SNS SSS 
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| TAKE Bt CKS: 
1 
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CAA 


18300-1986 00:42:29 yaya BL ing-42 4.0274 Page 


Search quota table for UIC 
7 data for UIC 


! Rewrite quota file entry 
Assign a channel to input disk 
Assign a channel to output disk 
Switch to relative volume 
Check one file header 

Read one file header 

Write one file header 

Create deleted file header 
Take blocks from free List 
Allocate specific LBN 

Allocate best fit 

Return blocks to free List 
Make map pointer (ODS-1) 

Make map pointer (0ODS-2) 
Create window block 

Delete window block 


' Add blackhole pointer to window 


Add map entry to window 


' Completion ART val RW “VIRTUAL 


Geeec wr ite virtua 
tialize a volum 

Initialice file header 
Rewrite boot block with boot LBN 
Mount a volume set 
Ready disk for save 
Execute RMS ENTER func fon 
recute {OS READ extend 

Execute | EADVBLK, MO _WRITEVBLK 
Execute I0$_A 


Process aitaecstan list after create 


' Create erOS ERE header 


Execute 10$_CREATE 
Execute IO$"DEACCESS 
Execute IO$"MODIFY 
Dispatch ACP Q10s 
Execute $010W 


at - <74 Page 
-$ep-1984 00:42: AX-11 Bliss-32 v4.0 . ; 

904-000 cetera oni: 19-808- 1382 00:32:63 EBACKUP SRC ISTAACP.B32; (2 
! Read attributes 

; i388 | Woops DATE” i t 64-bit time to ODS-1 format 

A HR] Geteetiiecromees | eR 

: $42 1767 1 : 

: 215 1768 1 

: NAL ROUTINE : 

EH ees arg, | fenuts tte beter eects 

; 318 is ft Ke eROR: F i Signal file-related error He 

: 8 1778 i ROA ODS DATE NOVALUE, ! Convert ODS-1 format to 64-bit t 

i ie 4 sablenaamntes LUE ' Execute volume tatetet izgt ion 

; ef EBLOCK: NOVALUE, ' Convert filename to ODS-1 format 

: § 1338 i FREE WN Z NOVALUE ; ' Deallocate virtual memory 

: ¢ 6 4 Ere OM ° . ' Allocate virtual memory : 3 

i $82 1559 i GET-ZERO_VM, i Al Locate and clear virtual memory 

: $68 1780 1 SYSSASSIGN:” ADDRESSING MODE (GENERAL), faded asbilied 

; iyo 4 CL. DELETEACL } Delete and deallocate ACL segments 

; $¢9 1388 i ACL-BUTLDACLS : He he 

: 1 1784 ACL-DISPATCH; i 

; : 1786 1 

: LITERAL 

: 535 1789 Do eeeeRMAL NT TUPSBADSETCNT, 

: 1789 1 BACKUP$_DISKFRAG, 

: 23 1790 1 BACKUP$~GETCHN, 

: 238 1791 1 ACKUPS$_INCR 

: 239 1792 1 BACKUPS_INCSETCNT, 

+ 240 1398 1 ACKUP$—INVATTVAL, 

+ 261 1794 1 BACKUP$_INVFID 

> 26 1795 1 BACKUP$_ INVHOMBLK, 

: tg 179% 1 CRUPS_LARGECNT, 

+ 266 1999 1 BACKUP$_NOBITMAP, 

+ 265 1798 1 BACKUPS_NOHOMEBLK, 

: 1 BACKUPS NOINDEXF, 

= 266 1799 % 

: 267 1800 1 BACKUPS NOVOLDATA, 

+ 268 1801 1 BACKUPS ~ODS¢SAVE, 

: $86 1808 BACKUPS“ OPENOU 

: 251 1804 1 CKUP$~CLOSEOUT, 

: 25 1805 1 CKUP$ ~READBMAP, 

; 8 1 1 BACKUP$_READERR 

: 256 1 1 BACKUP$-READI 

: 255 1 88 1 CKUP$~READYREAD 

; $5 1809 1 CKUPSREADYWRITE, 

: 2 1810 1 BACKUP$~STRUCLEV, 

: 258 1811 1 CKUP$~VOL INSET, 

: $39 i ig i BA OS URI TEAR: r 

: rs : 12 \ BACKUP$~QUOTAF ILE; 

: 26 1815 1 

: es 1 i$ ' GSDEF INE(); ! Define global common area 

: 265 i819 1 

: 1819 1 

; 6 1820 1 OWN 
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: 84 
§ 84 
84 

84 

84 

84 

9 84 
94 84 
5 84 
96 84 
97 85 
98 85 
99 85 
85 

302 85 
305 85 
85 

85 

85 


SBISAE 


WR O OONAVUES WIN (OO DNAUE WN 0 OD NAME UNO OONOUS WR 


a a a ee ee a ae ee a a a ee ed ed ed ed 
Sec 
wm 


ee ee ee ee ed ed ed ed od dS dd = 8 8 8 wd 


pwpetatates 44 ee y 


RORQ a tt et a a 
—SCOOBNOUESWN Oo 


WWAWANWAWAIW 


JANN 
RUNS oe we 


MACRO 


LITERAL 


MACRO 


LITERAL 


BUILTIN 


RSA_DESC: 
DOF “QUOTA_F ID: 
DOF “ROOT 


DOF ~COUN 
QUEDE _HEAGERS: 


12 
1é-Bep-1964 00:42:29 yANed1 OL is4-82 v4.0: 


VECTOR(2) 


1D 
BBLOCK F16S¢ LENGTHS, ' 


VECTOR (6); 


in § 
le 1D of quota file 
oot of quota sense 
Count of entries in quota table 
' Queve headers for: 
Allocated disk extents 
Required extents 
Used extension file IDs 


scriptor for RSA TA_DISMOUNT_OUTPUT 
f 


Field definitions for extent list. 


EXT_S_ENTRY= 


070589°0 
i sf, 
16,0, ,0 i; 


' Forward Link 

' Backward Link 

! Pointer to VCB for volume 
' Count of blocks 

' LBN of blocks 


! Size of extent List entry in bytes 


Field definitions for create List. 


CRT_FLINK= 
CRTBLINK= 


CRT_FID_FQHDR= 
CRT~F 1D-BQHDR= 
CRT~BLOTKS= 


CRT_FID= 
CRT7FI 
FI 
TF] 
CRTWFI 
TTF] 


0.0.36 -0 z, 
-0,32,0 %, 


————3 99009 ——C 


' Forward Link 
' Backward tink 


' Queue header for FID queue 
' Blocks 
File ID 


Size of ‘blocks’ entry 
Size of ‘FID’ entry 


742 
231 
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Ss Standalone ACP 4 00:42: AX-11 Bliss-32 V4.0-74 Pa 
Vv “500 DOF _FIND_UIC = find UIC in quota table 12-808 -}38e 00:32:63 EBACKUP SRe STAALP b3004 - 
5 3 1875 1 ZSBITL “DOF _FIND_UIC = find UIC in quota table’ 

3 4 1 6 1 ROUTINE DOF FIND-UIC (uIC)= 

3 5 1877 1 

Bas 

; 8 1880 | i FUNCTIONAL DESCRIPTION: 

3 1 1! This routine finds the quota table entry for a specified UIC, 

3 . : § : creating it if necessary. 

; ; 1884 1 | INPUT PARAMETERS: 

$ ; 5 } : VIC = The UIC. 

: 335 1 1 | IMPLICIT INPUTS: 

g 5] 13e8 : } DOF _ROOT - The root of the quota table structure. 

: 1890 1 | OUTPUT PARAMETERS: 

3 3 1891 1! NONE 

; 0 1S36 1! 

: 4g 1997 : OR ETS Ferree 

: 3% 1895 1! 

3 4 1896 1 ! ROUTINE VALUE: 

s 2 + 944 : } A pointer to the entry for the specified UIC. 

: 347 1899 1 | SIDE EFFECTS: 

3 8 1900 1! The entry may be created if required. 

3; 349 199) 1! 

; 350 19 3 1 l= 

; 53 190 2 BEGIN 

F 1905 2 LOCAL 

3 54 1906 : REF BBLOCK, !' Pointer to DOF onery 

3 ie 1302 Q: REF BBLOCK; ! Pointer to Link to DQF entry 

; 1909 

3 4 1910 ! Search DQF table for a matching entry or to find where the new entry 

: ba : must be inserted. 

; 1918 Q = DOF_ROOT; ' Point to root of table 

: 1914 P= ..Q; ! Point to highest entry in table 
3 Hb a WHILE 2 NEQ 0 DO ! Until bottom of table reached 

: 1919 IF .UIC EQL .PCDQF_UIC) ! If correct entry 

$ 1313 RETURN .P; ‘ return 

: 191 IF .UIC GTRU .PCDOF_uIC) i If desired entry is on right branch 
; 1920 THEN Q = PCDOF_RLINK ' point to right Link word 

5 1981 ELSE @ = PLDQF_LLINK); : otherwise to left Link word 
3 19 § = ..0; ! Point to right or left kranch 

: i 

; 1925 

3 13 § : Allocate and initialize the new entry. 

; 19 8 DOF_COUNT = .DQF_COUNT ¢ 1; 

3 Fs .Q= GET_VM(DOF_S_ENTRY); 

: 1931 3 PLDOF LLINK) = 0; 


ee 


K 12 
ACP $ep-1984 00:42: AX-11 Oi iss =32 v4.0-74 2 8 
IC = find UIC in quota table 12-808-138¢ 90:32:63 BACKUP .SRC ISTAACP.B32: —— (3) 
DOF _R INK] = 0; 
DOF“UIC) = .ult; 
DOF “USAGE = 0; 
DQF _PERMQUOTA 
DOF “OVERDRAFT 


| 


nn" 
Wea 13 
nm 
=o 
3 


= <1; ! Flag that no quotas exist 


= <1; 


tees OY 
OOOOOO0O on 


eTITLE STAACP | aaaa ACP 
-IDENT \v04-000\ 


-PSECT COMMON,NOEXE, OVR,2 
00000 GLOBAL_BASE: 
00000 FREE_LIST: 
00008 INPUT waits 
00010 REREAD “wait: 
00018 OUTPUT “wit 


0020 JPI_UIC: .BLKB 
0024 JPILUSERNAME : 


00030 JPI_DATE: oa 
00038 JPL,NODE DESC: 
00040 JPI_CURPRIV: 
00048 syYI _VERSION: 


8 
8 
8 
LKB 4 
Q004C SYI_SID:.BLKB 4 
00050 RWSV_HOLD Lists . 

64 


00058 RwSV_ cncigs 

00098 RwSV AuTODIN: 
00008 RwSv -FILESET 1D: 
QO0EO RWSV_VOLUME ID: 
000EC RUSV.VOL NUMBER: 
OOOEE RWSV_SEG_NUMBER: 
OOOFO RWSV_FILE NUMBER: 
000F4 RWSV_SAVE QUAL: 
000F8 RUSV_SAVE FAB: 
OOOFC RWSV_CHAN: 


bie 
v0e-000 BOF FIND UIC © find UIC in quote table és tasep=198¢ 41:82:08  EBACKUPeSRETSTAALE 4.05748 Page 5) 
-BLKB 4 

00100 RWSV_XOR_BCB: 
00104 RWSV_IN.SEQ: 
00108 RWSV_IN_SEG 
0010¢ RWSV_IN_KOR SEQ: 
00110 RWSV_IN_ KOR RFA: 
00116 RwSV LOOKANERD 
00117 RwWSV_ -xOnSiTE: 
00118 RWSV_IN_G OUP. $1 
0011C RWSV_IN_ERRORS: 
0O11E RWSV_IN_XORUSE : 
00120 RWSV_IN_ORGERR: 
00128 RWSV_IN_VBN: 
0012¢ RWSV_IN_VBN_0O: 
00130 RWSV_ALLOC: 
00134 RWSV_EOF: 
00138 RWSV_OUT_SEQ: 
0013¢ RWSV_OUT_VBN: 
00140 RWSV_OUT “BLOCK. COUNT: | 
00144 RWSV_OUT_ERRORS: | 
00146 RWSV_SEQ “ERRORS: | 
00148 RWSV_OUT. “GROUP. COUNT: 
00149 RWSV_PADDING: 


BL 
0014C QUAL: LS 
001BC COM_SSNAME: 


001¢4 COM_VALID TYPES: 
0016 COMFLAGS: 
0018 COM_PADDING: 
001¢9 COM_BUFF COUNT: 
0O1CA COM_I_SETCOUNT: 


Ban ne ene eee to ee 
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001¢B 
001CC 
00108 
001E4 
OO1EC 
0020C 
00200 
0020€ 
0020F 
00210 
00210 
00214 
00216 
00218 
0021C 
00220 
00224 
00228 
0022¢ 
00230 
00234 
00238 
00240 
00248 
00248 
00250 
00258 
00260 


AX-11 Bliss-32 V 
BACKUP.SRCJST RACE 


1eSep-1986 11:36:08 


con_o_seFEOUNT: 
COM_1_STRUCNAME : 
COM_O_STRUCNAME 
COM_O_BSRDATE: 
ALT _SSNARE : 
INPUT_FUNC: 
INPUT _RTYPE : 
OUTPUT_FUNC: 
BLK 
FAST _STRUCLEV: 
INPUT _BEG: 
INPUT_CHAN: 
INPUT_FLAGS: 
BLK 
INPUT_PADDING: 
INPUT_FAB: 
INPUT_NAM: 
INPUT_BCB: 
BLK 
INPUT QUAL: 
INPUT_BAD: a 
INPUT -Buotk: 
INPUT MAXBLOCK: 
INPUT MEDIA 1D: 
INPUT .NAMEDE SC: 
INPUT _STATBLK: 
INPUT_HOR BEG: 
INPUT_CREDATE: 
INPUT _REVDATE : 
INPUT_EXPDATE : 
BLK 
INPUT_BAKDATE : 


wo-—- — -— 
™m ™m 


LKB 
LKB 


oodoeoiwed@®mdooeoewa®w®mst &£& FF F&F fF fF Ff FN NY fF Oo fF |? - = 


4.0-74 
-B32; 


4 


row al 


WES oR N12 

voe-000 BaF FIND UIC © find UIC in quota table 1e-88b-198e 99:82:68 EBAckuP SRedstaace.o32- Pose 4} 
00268 INPUT -F ILEOWNER: 
0026¢ INPUT -FILECHAR: 
00270 INPUT_RECATTR: 
00290 INPUT_HDR END: 
00290 INPUT_END: ys 
00290 INPUT_PROC_LIST: 
00294 INPUT “PLATERENT: 
0029¢ INPUT vai st: 
002A4 INPUT_PLACE E CEN: 
0026 INPUT -PABDING. 2: 
002A8 OUTPUT BEG: 
0028 OUTPUT =CHAN: 
002AC OUTPUT FINS: 
QO2AE OUTPUT PADDING: 
00280 ouTPUT FAB: 
00284 OUTPUT_NAM: 
00288 OUTPUT_BCB: 
002BC OUTPUT_QUAL: 
002c0 ouTPUT BAD: 
002¢4 OUTPUT BLOCK: 
0028 OUTPUT _MAXBLOCK: 
002CC OUTPUT_DEVGEOM: 
002D4 OUTPUT _ATTBUF: 
00364 ourPut Ei: 
00364 LIST_TOTFILES: 
00368 Lust_torsize: 
0036C VERIFY ips 
00370 VERIFY USE COUNT: 
00374 VERIFY_QUAL: 


wu S&S 
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or rr err FRFNRNR RON WY @ @ FF COO 


144 


on re SF F&F OO 


ACP 
"FIND ats - find UIC in quota table 


00378 COMPARE iy * 
0037¢ FAST _purtene 
00380 FAST -purien $126; 
00384 FAST_RVN: 
00385 FAST “papbiticn 
00386 DIR _vertipt te 
00388 FAST_VOL “Bre: 
00388 FAST IMAP SIZE: 
0038C FAST_IMAP: 
00390 FAST_HDR’OFF SET: 
00394 FAST_BOOT LEN: 
00398 FAST_VOL‘END: 
00398 JOUR_BUFFER: 
0039C JOUR_DIR: 
003A0 JOUR_HIBLKS 
003A4 JOUR -EFBLK: 
003A8 JOUR_INBLK: if 
OO3AC JOUR_ FFBYTES 
OO3AE JOUR_ “1naitee 
00380 JOUR_ “struet” LEV: 
00382 sour_couit: 
00383 JOUR_REVERSE : 
00384 JOUR_EXS2: 
00386 JOUR_PADDING: 
00388 COKPT NIGH SP: 
0038C CHKPT LOW SP 
003CO CHKPT_STACK: 
003¢4 CHKPT_VARSS 
~BLK 


te gc} 00:42:29 
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‘Foon 500 BOF FIND Ole e find UIC in quota table 1§-$ep-196 90:82:63 YencKUP’ SRE STALE §354 —— Ry 
003C8 CHKPT_STATUS: 
LKB 
pp ace CC DIR_BEG: .BLKB 
cc HAN: 


90300 DIR_NAM: :BERB 
0304 DIRIDEV_DESC: 
00308 DIR_SEL bins 
O03EO DIR_SEL_NTV: 
003E8 BIR _STRUtLEVS 
003E9 DIR_LEVELS: 
OO3EA Din Fuagiee” 
OU3EB DIR_STATUS: 
OO3EC DIR_STRING: 
0052C DIR_STACK: wy: 


00790 DIR_SP: .BLKB 
00794 DIR_ “SEL LATEST: 


LKB 
00798 DIR_END:.BLKB 0 
00798 DIR-SCANLIMIT: 


007BC INPUT nti 
007CO OUTPUT Nit: 
007C4 CURRENT it: 
007C8 CURRENT “its: 
OO7CC CURRENT_WCB: 
00700 ACL_FIB BESCR: 


K 
QO7D8 ACL_FIB: :BLKB 
00818 ACLZLENGTH: 


.BLKB 
0081C ACL_BUFFER: 
00820 CRYP_IN_ CONTEXT: 
00824 CRYP_oU_CONTEXT: 
00828 CRYP_DA_CONTEXT: 
0082¢ CRYP_DATA, ENCIV: 
(0834 CRYP DATA. CODE 
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v04= DOF _FIND_UIC = find UIC in quota table 14-Sep-1984 
00838 CRYP_DATA eer 
00840 CRYP_DATA_Iv: 


LKB 
00848 CRYP_DATA CKSM: 
-BLKB 


-PSECT 
00000 RSA_DESC: a 
00008 Dar _auoTA FID: 


S43 -BLKB 
$001 DQF _ROOT: 


.B 
00014 par _couNT: 
00018 QUEUE _HEADERS: 

-BLKB 


»PSECT 
000C 00000 DQF_FIND_UIC: 
«WORD 


BACKUP. SRC JSTAACP.B3 
8 
8 


DATA, NOEXE,2 


FILE ERROR, FROM OD 


FROM_ODS1_DATE 


T_ZERO_V 

SYSSASSIGN, ACL BELETEACL 

ACL_BUILDACL ACL SPATCH 
LBADSeTC 


AG. 
curs. INCRVN 


Anan 
CK IT 


2SAVE 
BACKUP$_ Sitti BACKUP$_OPENOUT 
BACKUP$_ CLOSEOUT 


R 
BACKUPS" QUOTAF ILE 
CODE ,NOWRT ,2 


Save R2,R3 


ree 


1876 
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DQF _FIND_UIC = find UIC in quota table 


Standalone ACP 


STAACP 


v04-000 
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oe 
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2 oRNS Ow NO 
| | oad eek eek ee oe MIMIM ~F TT 


23 00000000" 
00000000' 


MNO 
«awn 


A2 
53 
53 
52 
A2 


ow 


ee 


08 
000000006 09 
6 

08 
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77 bytes, Routine Base: 
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SPELLS 
ARAN oSe 
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3; Routine Size: 


andalone ACP 16-Sep-1 AX-11 Bliss-32 V4.0-74 
"ROD! Y_USAGE = record disk space usage 1b-3en-1984 99: $2: 3 BACKUP.SRCIJSTAACP.B32; 
SBTTL ‘DQF_MODIFY_USAGE = record disk space usage’ 
OUT INE DOF “MODIFY_USAGE (UIC ,USAGE): ALUE= 


{+4 


FUNCT EGR DESCRIPTION: 
This routine records used blocks. 


INPUT PARAMETERS: 
VIC - The UIC. 
USAGE = Count of blocks allocated. 


artes * INPUTS: 
Disk quota table. 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
Disk quota table updated. 


WDOODOOOOOOOOOOOOOOOOOO Ov 
DAA E EEE EEE EE OT 


MEW O OONAVMLS WN" OOONOUES WO 


ee ee ee ee ee ere ES ee nn" 


a a a ee ee a a ee a a a a a a a a a a eed «=o COD 
=—NRIPIPIPINPIPIRY) 8 et at et tt ot a tt 


96 ROUTINE VALUE: 

3 NONE 

96 SIDE EFFECTS: 

96 NONE 

96 

966 -- 

967 

968 BEGIN 

969 LOCAL 

4 REF BBLOCK; ! Pointer to DQF entry 
464 

97 DOF _FIND UICC Ul 

974 PCDOF. USAGEJ~= .PLDQ SAGE? + USAGE; 
975 END; 


0000 00000 DOF _MODIFY_ USAGE: 


s¥ORD Save nothing 
04 Ac DD 90002 PUSH 
AA AF 01 FB 0000 CALLS DOF FIND_UIC 
0c AO 08 ac CO 90009 ADDLe Usher: T2(P)~ 
04 0000€E 


15 bytes, Routine Base: CODE + 0040 
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STAACP Standalone ACP 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 Pa 7 
¥04 DOF WRITE ENTRY - write out quota file entry 1 =300- 1382 90:32:63 BACKUP .SRC STALE 6304 net (35 
3; 4 $ 197 1 ZSBITL ‘DQF_WRITE_ENTRY = write out quota file goer 

; : 130 ; ROUTINE DQF_WRITE_ENTRY (P): L_DOF_WRITE_ENTRY NOVALUE= 

3; 6 8 1979 1 !44 

; 450 1980 1! 

; 431 1981 1 ! FUNCTIONAL DESCRIPTION: 

: 2 § 3 § ! : This routine writes a quota file entry. 

; 4 13Re 1 ! INPUT PARAMETERS: 

3 2 5 13 5 : } P - Pointer to DQF entry. 

3 6 1987 1 ! IMPLICIT INPUTS: 

3 6 1988 1! DOF BUFFER = Pointer to block buffer. 

; 439 1989 1! DOF RECORD - Pointer to next available record. 
; 440 1990 1! DOF _VBN - Next VBN. 

3; 441 1991 1! DOF _DEFAULT_PERM = Default PERMQUOTA. 

: ri 1338 : } DOF _DEFAULT_OVER = Default OVERDRAFT. 

3: 446 1994 1 ! OUTPUT PARAMETERS: 

: 445 1995 1! NONE 

3; 446 128 1! 

3; 447 1997 1 ! IMPLICIT OUTPUTS: 

: 448 1998 1! NONE 

3 449 1999 1! 

; 450 000 1 ! ROUTINE VALUE: 

> 451 001 1! NONE 

; $26 aid 1! 

3; 4 0053 1 ! SIDE EFFECTS: 

3 454 0046 1! NONE 

3; 6455 2005 1! 

; 456 2006 1 !-- 

3 457 2007 1 

; 458 2008 BEGIN 

3; 459 2009 MAP 

; 460 2010 REF BBLOCK; ! Pointer to DQF entry 
: 461 2011 LOCAL 

; ro 41 sole STATUS, ! General status variable 
:; 46 201 I : VECTORE4,WORDJ; ! 1/0 status block 
3 664 sors EXTERNAL REGISTER 

; 465 015 DOF _BUFFER, 

: 466 2016 DOF _RECORD: REF BBLOCK, 

3; 467 017 QF _VBN, 

; 468 018 DOF ~DEFAULT_PERM, 

: 469 019 DOF _DEFAULT_OVER; 

; 470 020 

3; 471 021 

3 rte ; § : Recursively write all entries on the left branch. 

: $7 034 IF .PCDQF_LLINK] NEQ 0 THEN DOF _WRITE_ENTRY(.PCDQF_LLINK]); 
3; 476 8 $ 

3; 477 0 IF .DQF_RECORD GEQA .DOF_BUFFER + 512 

3; 478 5 : THEN 

3; 479 BEGIN 

3; 480 P 2030 STATUS = S$$Q10W( 

3; 481 P 2031 FUNC=10$_WRITEVBLK, 

3 482 P 2032 CHAN=STA~OUT_CHAN, 


4 ie 
STAACP Standalone ACP 16-$ AX-11 Bliss-32 V4.0-74 p 18 
904-500 BaF URITEENTRY = write out quota file entry  Ieakebol9ad 41184:08  EBACKUP  SRETSTAALP Ose09 a 
a Bae HSH Bore 
eo = R, 
: i P 2035 Pe: 318 BN 
3 6 $ IF .STATUS THEN ératus = .10S8(0); 
8 BE lage 
: 490 040 CR WRITEERR + STSSK_ERROR, 1, RSA_DESC, .STATUS); 
> 491 041 CHSFILL(O ; 
: 49 Que DOF _RECORD = a gttn 
: 49 04 DOF"VBN = JDOF bok +1; 
: 494 O44 END: 
; 499 045 
; 499 be9 DOF _RECORDCDOFSL_FLA $] - aF sn ohttives 
: 498 048 Dar RECORD DOF SL-UIC 01); 
: 499 04 DEDOFSL-USAGE) r PL DOF USAGE; 
; $01 930 ha tH OPERMOUOTAA EQL -i AND [PLDQF_OVERDRAFT] EQL -1 
: 50 05 NBEGI 
; 208 §3 DOF TRECORD DOFSL_PERMQUOTA)] = .DQF_DEFAULT_PERM; 
; 504 054 DOF ~RECORDCDOF $L OVERDRAFT = DOF “DEFAULT-OVER; 
; 505 055 ND~ 
: 308 089 BEG 
; 508 058 DOF TRE CORD DOFSL_PERMQUOTA) = .PCDOF -PERMQUOTAI; 
3 44 34 oer “RECORDCDOQFSL_OVERDRAFT) = .PCDQF-OVERDRAFTI; 
: 511 061 2 DOF_RECORD = .DOF_RECORD + marek ionetin 
i 318 oe8 
; 2\$ bee Recursively write all entries on the right branch. 
: 216 2066 F .PLDOF_RUINK] NEQ 0 THEN DOF_WRITE_ENTRY(.PCDQF_RLINK]); 


.EXTRN STA_Q10W 
007C 00000 DOF _WRITE_ENTRY: 
QORD 


. Save R2,R3,R4,R5,R6 : 1977 
L - é 
SE 08 ¢2 0000 SUBL2 #8, SP 
56 06 ac OD 0005 MOVL PP, R6 + 2024 
66 05 00 TSTL (R6) : 
06 13 00008 Ea Ssé1S F 
66 0D 0000D PUSHL  (R6) : 
AF 01 FB O000F CALLS #1, DOF_WRITE_ENTRY : | 
50 0200 ¢B 9 O13 1$: MOVAB 512(R113, RO : 2027 
50 AD 91 CMPL DQF_RECORD, RO ; 
0 iF 1B BLSSU 4$ : 
7¢ 1D CLRQ 0 = (SP) > 2036 
7E D4 9 1F CLRL 3s = (SP) ; 
bo 9 1 PUSHL  DQF_VBN ; 
7E 0200 BF 3¢ 00 3 MOVZWL #512, =(SP) ; 
bp 90 PUSHL DQF BUFFER : 
— 7C OO002A CLRO. 0 = (SP) : 


1 
Standalone ACP ihese -1984 00:42: AX-11 Bliss-32 V4.0-74 Pa 19 
DOF _WRITE_ENTRY = write out quota file entry 10-Sep-1986 99582563 EBACKUP. SRC STAACP.B32; =e (5) 
20 ar 9F 0002C PUSHAB 10s : 
DD 0002F PUSHL #4 ; 
OOO2FFFF BF DD 0 J PUSHL #196607 : 
—E D4 CLRL sis?) : 
000000006 00 o¢ Fe 9 CALLS #12, STA_Q1OW : 
: 40 LBC 8=—_-s STATUS, 2$ + 2037 
¢ 4 V2wL 10SB, STATUS : 
1 E 46 BLBS STATUS, 3$ + 2038 
DD 2$ PUSHL STATUS + 2040 
00000000" EF 9F 00048 PUSHAB RSA_DESC : 
000000006 BF p> 90 33 PUSHE  SBACKUPS_WRITEERR#2 ; 
000000006 00 4 §B 2 CALLS #4, LIBSSIGNAL ; 
8F 0 6E : 2c 94 3$: MOVC #0, (SP), #0, #512, (DOF BUFFER) _£ 204 
SA $8 DO 0068 MOVL § DQF_BUFFER, DOF_RECORD + 204 
59 D6 6B INCL OF “VBN + 204 
6A 01 B B288 4% MOVL #1, (DQF RECORD) 3 204 
04 AA 08 A6 7D 000 9 MOVG  8(R6), 4TDOF_RECORD) + 204 
FFEFFFFF 6 8F 10 A6 01 907 CMPL =s-« 16 (R65, #=1 + 205 
14 1 0070 BNEO $ : 
FFFFFFFF 6 8F 14 Ab D1 O007F CMPL O(R6), #1 : 
OA if 00087 BNE $ : 
0c AA 58 DO 00089 MOVL DOF _DEFAULT_PERM, 12(DQF _RECORD) + 2053, 
10 AA 57 00 BR0e0 MOVL DOF _DEFAULT_OVER, 16(DQF_RECORD) 3: 2054) 
05 11 00091 BRB 6$ : 2050) 
0c AA 10 A6 7D 00093 5$ MOVQ be 12(DQF_ RECORD) 3; 2058. 
SA 20 CO 00098 6$ ADDL2 #32, DOF_RECORD + 2061 | 
04 Ab D3 00098 TST 4(R6) > 2066 
08 13 0009E BEQL «6s 7$ : 
04 A6 DD OODAD PUSHL  4(R6) : 
FFS8 OCF 01 FB 000A3 CALLS #1, DOF_WRITE_ENTRY : 
04 000A8 7$ RET + 2067 


; Routine Size: 169 bytes, Routine Base: CODE + 005C 
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RSBTTL “ASSIGN_INPUT CHANNEL = assign disk input channel’ 
GLOBAL ROUTINE ASSIGR_INPUT_CHANNEL (DEVNAM, CHAN, ACMODE ,MBXNAM) = 


ae 


oooooo 


1 
; 
71 1 tee 
5 ts 73 
4 75 1°! FUNCTIONAL DESCRIPTION: 
5 a : : This routine is called to assign a channel to the input disk. 
5 6 1 i INPUT PARAMETERS: 
8 (aa As for the SASSIGN system service. (However, the channel number is 
9 i ,: written as a longword because the pseudo-channel numbers are larger 
‘ 6 ; : than 16 bits). 
3 81 1! IMPLICIT INPUTS: 
OE | pepe 
5 84 1 | OUTPUT PARAMETERS: 
3 85 : : NONE 
38 89 1 | IMPLICIT OUTPUTS: 
Z 44 ! NONE 
4 990 : ROUTINE VALUE : 
: 03 ‘i Completion status. 
4 95 1 ! SIDE EFFECTS: 
4 94 1! NONE 
4 95 A! 
4 1 t- 
4 1 
4 
5 
5 
5 
5 


PUPP PUP DVDVPVPVDVSIVLIUSPUSUDVIVIUSULVUSUSVLVUSUSLUSLUSUSUSUSUIVOSVS VSS USOSIS VSI OSISISISTSISIOSISIOSIST 


9 

0 

: 

4 

é 

8 09 

9 98 BEGIN 

0 099 2 BUILTIN 

1 100 ; 

g 102 | 

54 198 ! If the standalone ACP is going to handle operations on the input disk, then 
55 104 : return the special channel number. Otherwise, let the request through to 
2$ ; 5 } the real SASSIGN service. 
58 10 IF .INPUT_MTL NEQ 0 

59 108 THEN 
60 109 BEGIN 

61 110 .CHAN = STA_IN_CHAN; 
$6 111 SS$_NORMAL 
6 Me 

64 11 ELSE 

65 114 CALLG(.AP, SYSSASSIGN) 
66 115 END; 


0000 00000 ENTRY ASSIGN _INPUT_CHANNEL, Save nothing : 2069 
00000000" EF 05 0000 TSTL NPUT_ATL ; 2107 
C 13 0000 BEQL 3 
08 BC OOOTFFFF F DO QOO0A MOVL #131071, @CHAN ; 2110 


c- 


13 
$b0 500 Reet en PNeUt CHANNEL = assign disk input channe 1§-8e0-1984 99:22:63 arckbe sae istaate oso, —_ (3) 
50 01 8° O00i8 MOVL #1, RO 2109 
000000006 00 6C FA O9016 1$: CALLG (AP), SYSSASSIGN : 2114, 
04 0001 RET 3 2115 
; Routine Size: 30 bytes, | Routine Base: CODE + 0105 | 


ee oe — 


ROUTINE VALUE: 
Completion status. 


SIDE EFFECTS: 
NONE 


13 
STAACP Standalone ACP 1beSe -1984 00:42: AX-11 Bliss-32 V4.0-74 P 2 
ASSIGN_OUTPUT_CHANNEL = assign disk output chan aaa 1 00:32:83 EBACKUP SRE STAACP.B32; - (3 
68 1§ ZSBTTL "ASSIGN_OUTPUT_CHANNEL = assign disk output channel’ 
. : GLOBAL ROUTINE ASSIGN_OUTPUT_CHANNEL (DEVNAM,CHAN,ACMODE ,MBXNAM) = 
71 3 'e¢ 
Le: 0 ' 
7 1 ! FUNCTIONAL DESCRIPTION: 
rR § : This routine is called to assign a channel to the output disk. 
76 4 i INPUT PARAMETERS: 
5 5 ! As for the SASSIGN system service. (However, the channel number is 
§ ; written as a longword because the pseudo-channel numbers are Larger 
‘ : than 16 bits). 
5 9 1 1 IMPLICIT INPUTS: 
: ? : NONE 
5 : i QUTPUT PARAMETERS: 
5 3 : NONE 
5 i IMPLICIT OUTPUTS: 
NONE 
i 
! 
i 
i 
4 
i 
ie 


SREANLSSSIEALAV AS Sa~ 


eee a a aed ts ot = = ds 2 = = = = a 1d 2 es = 2 Ss a a 2 2 2 


wr 
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mn 


36 
37 
38 
39 
40 
o 
ra 
44 
97 45 
98 46 BEGIN 
599 4? BUILTIN 
600 48 AP; 
602 $9 | 
60 51 ! If the standalone ACP is going to handle operations on the output disk, then 
604 2% ! return the special channel number. Otherwise, let the request through to 
eRe 7 : the real SASSIGN service. 
607 55 IF .OUTPUT_MTL NEQ 0 
608 56 THEN 
609 57 BEGIN 
610 58 CHAN = STA_OUT_CHAN; 
611 59 SS$_NORMAL 
ols 60 END 
61 6 ELSE 
614 6 
615 6 


CALLG(.AP, SYSSASSIGN) 


Be Be Ge Os Oe Se Oe Oe Be Oe Oe Oe SES Se Oe Oe FF Os Os Os He Os Os Oe 5 Ss Oe Os Os Oe SFOs OHS 5 oe Se SESH Se SESE SEs erere 
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0000 00000 .ENTRY ASSIGN_OUTPUT_CHANNEL, Save nothing 2 2117 | 

00000000" EF p st TSTL TPUT_MTL : 2155 | 

C 00 BEQL 3 | 

08 BC OOO2FFFF F OD OOA MOVL #196607, @CHAN : 2158 


voe-00 RESTOR CUTPU OF CHANNEL = assign disk ‘ot chan if: sep-1 99: $3: 63 BACKUP SR tis taate:b30:1 ap rd 


50 $2 99813 Ov. #1, RO 2157, 
000000006 00 6C FA 16 1$: CALLG (AP), SYSSASSIGN : 3162 


0010 
; Routine Size: 30 bytes, Routine Base: CODE + 0123 
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nN 13 
Standalone ACP 16-Sep-1984 00:42: Ax-11 Bliss-32 V4.0-74 Pa 4 
SWITCH VOLUME = switch to selected volume 122868-18 4 90:82:63 BACKUP. SRC JSTAACP.B32; ” B 
164 1 ZSBTTL "SWITCH_VOLUME = switch to selected volume’ 
19? : GLOBAL ROUTINE SWITCH_VOLUME (RVN)= 
189 1 44 
198 7% 
18 1 ! FUNCTIONAL DESCRIPTION: 
109 : } This routine switches to a specified relative volume. 
76 1 ! INPUT PARAMETERS: 
\t? : } RVN - Relative volume number. 
175 1 ! IMPLICIT INPUTS: : 
176 : } CURRENT _MTL - Pointer to MTL for selected volume set. 
178 1 ! OUTPUT PARAMETERS: 
179 1! NONE 
180 1! 
181 1°! IMPLICIT OUTPUTS: 
186 1! NONE 
183 1! 
184 1 ! ROUTINE VALUE: 
13? } : Channel number assigned to specified RVN. 
187 1°! SIDE EFFECTS: 
188 1! NONE 
189 1! 
190 1 !-- 
2191 1 
136 BEGIN 
19 LOCAL 
194 STATUS, . generet status value 
2195 REF BBLOCK, ' VCB that will have channel deassigned 
$199 vcB REF BBLOCK; ! VCB being switched to 
2198 
$300 Locate VCB being switched to. 
2308 CURRENT_VCB = VCB = .CURRENT_MTLCMTL_VCB(.RVN-.CURRENT_MTLCMTL_RVN_BASE])); 
20 
204 IF .VCBCVCB_CHAN) NEQ 0 
205 THEN 
209 BEGIN 
08 ! Volume already has channel assigned. Make sure it is first (implemented 
310 as, not second) in the LRU List. 
11 IF .CURRENT_MTLCMTL_CHAN_2) EQL .VCB 
\¢ THEN 
15 4 BEGIN 
14 4 CURRENT_MTL MTL CHAN. 2) = .CURRENT_MTLCMTL_CHAN_1); 
15 4 CURRENT-MTLCMTL-CHAN_1] = .VCB; 
1§ END; 
1 END 
18 ELSE 
$535 BEGIN 
220 
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STAACP Standalone ACP 1b-5¢ Sep-1984 AX-11 Bliss-32 v4.0-74 P 5 Ss 
904-500 SWITCH_VOLUME = switch to selected volume ~8ep-1984 0: $f: §3 BACKUP.SRC STAACP B35" ‘¢ sos 83 v 
; 674 1 ' No channel i f eeteree- Take the channel away from the second entry 3 
; 675 ¢ i in the LRU L 4 t exists, wait for the 1/0 count to drop to zero F 
: 676 ? and then lease gn the channel. : 
; 678 5 XVCB = ,CURRENT_MTLCMTL_CHAN_2]; ; 
; 679 § IF .XVCB NEQ 0 3 
; 680 THEN 3 
; 681 3 4 BEGIN 3 
; 68 4 WHILE TRUE DO 3 
; 68 0 5 BEGIN 3 
3; 684 1 SCLREF (EFN=31); 3 
; 685 : é F .XVCBCVCB Joc COUNT] LEQ 0 THEN EXITLOOP; ; 
; 686 WAITFR(EFN=31); 3 
3; 687 § 4 & END; $ 
; 688 5 4 SDASSGN(CHAN=, XVCBCVCB_CHAN])); 3 
3 689 236 XVCB vCB.CHANS = 0; : 
: 830 $34 ' 
; 69 $$72 STATUS = 7 “7 \ atlanta ttn CHAN=VCBCVCB_CHAN]); 3 
; 69 240 IF NOT .STATUS 3 
: 694 2241 THEN 3 
; 695 $seg SIGNAL ( 3 
; 696 $s¢ 4 CIF pveetyce OUTPUT] $ 
3; 697 44 4 THE BACRUP$_OPENOUT + STS$K_SEVER ; 3 
3 o08 soe? , eLse BACKUPS_OPENIN + STSSK_SEVERE), 3 
: 700 $5e9 veetvce DEVICE], : 
; 701 2248 STAT 3 
; 70 2249 CURRENT_MTL MTL. CHAN _2] = .CURRENT_MTLCMTL_CHAN_1]; j 
os a 2250 CURRENT _ _MTLCOMTL = CHAN, “1) = .VCB; é 
: 704 2251 END; 3 
3; 705 $526 3 
: 706 $$2 3 
3; 707 254 ' Return the channel number. $ 
; 708 2255 § ! 3 
; 709 2256 . VCBLVCB_ CHAN] 3 
; 710 2257 1 END; F 
-EXTRN SYSSCLREF, SYSSWAITFR : 

-EXTRN SYSSDA ASSGN 3 

001C 00000 ENTRY SWITCH VOLUME Save R2,R3,R4 : 2165 : 

54 00000000" EF 9E 00002 MOVAB CURRENT_M R4 3 3 

50 64 00 00009 MOVL EURRENTCATL RO 3 2201. : 

51 30 AO 9A 0000C MOVZBL 48(RO), R1 : | 3 

51 04 as es hy SUBL R1, RVN, R1 3 3 

5 34 A041 00 0001 MOVL 52¢RO)CR1I, vc F ; 

04 AG 33 dO Bate MOVL VCB, CURRENT_VCB : 5 

08 A 8 OO1E TSTw © 8 (véB) > 2204. : 

08 13 00021 BEQL 1$ 3 3 

53 04 AO 01 00023 CMPL 4(RO), VCB ¢ 2211) : 

6 \¢ 0027 BNEQ 9$ 3 3 

62 11 00029 BRB 8$ 7 2214. : 

52 046 A 0 002B 1$: MOVL 4(RO), XVCB 3 § $2 3 

27 13 0002F BEQL 4$ 3 6 3 


14 
STAACP Standalone ACP 1f- $ep-1984 00:42: AX-11 Bliss-32 V4.0-74 Page 26 
“Vos SWITCH VOLUME = switch to selected volume 13-308- 1984 99:82:63 BACKUP. SRC STAACP “B30; 2 BS 
1F DD 00031 2$ PUSHL #31 3 2231 
000000006 90 01 F 99 3 CALLS #1, SYSSCLREF : 
OA A2 B5 OO03A TSTW JOcxveB) + 2232 
08 15 0003p BLEQ ; : 
1F DD 0003F PUSHL #31 3 2233 
000000006 00 01 Fe 004 CALLS #1, SYSSWAITFR : 
£7 } 048 BRB es : 3229 
7E 08 A2 3C 0004A 3$ MOVZWL §&(XVCB), =(SP) : 5 
000000006 00 01 FB O0E CALLS #1, SYSSDASSGN ; 
08 A2 84 005 CLRW © BC XVCB) : 32 
7E 7C 00058 4$: LRQ = =( SP) 3 2239 
98 A i ODA PUSHAB g¢vcB) : 
AS OF D PUSHAB ¢(vCB) : 
000000006 00 4 FB 9060 ALLS #4, SYSSASSIGN : 
20 E8 0006 LBS STATUS, 7$ + 226 
DD 000A PUSHL STATUS 3 226 
20 AS’ 9F 0006C PUSHAB 32(VCB) 3 226 
01 DD 0006 PUSHL #1 : 
08 07 A’ €9 00071 BLBC = 7(VC 3 224 
000000006 +8F DD 00075 PUSHL HOACRUPS: SPENOUT #4 3 224 
06 11 00078 BRB 6$ : 
000000006 8F DD 0007D S$: PUSHL #BACKUP$_OPENIN+4 ; 324 
000000006 00 04 FB 00083 6$: CALLS #4, LIBSSIGNAL : 224 
50 64 00 OOOBA 7$: MOVL § CURRENT_MTL, RO + 224 
04 Ad 60 00 0008D 8$: MOVL (RO), 4TRO) : 
60 53 pO 00091 MOVL : 225 
50 08 A3 3C 00094 9S: MOVZWL 8(VCB), RO : 225 
04 00098 RET F 


; Routine Size: 153 bytes, Routine Base: CODE + 0141 


D 14 
Ne Standalone ACP 16-Sep-1984 242: AX-11 Bliss-32 V4.0-74 Page 7 { 
ia VERIFY HEADER - validate file header 1-8ep-19 4 90:42:88 YBACKUP’ SRe STALE 3004 (35 \ 
; re 28 1 ZSBITL “VERIFY_HEADER = validate file header’ 
. ze 1 ROUTINE VERIFY_HEADER (HEADER,FILE_ID)= 
; 714 60 1 
: yin : 
: Hg 68 | i FUNCTIONAL DESCRIPTION: 
3 at rt: } This routine determines if the block given it is a valid file header. 
; 720 66 | | INPUT PARAMETERS: 
; 721 ~m st HEADER - Pointer to header. 
3 4 ¢ re : } FILE_ID - Purported file ID. 
> 726 76} i AMPLiciT sneuts: 
3 5 4 : CURRENT_MTL - Pointer to MIL for selected volume set. 
: rey ue 1 | OUTPUT PARAMETERS: 
; 728 74 =«1«8 NONE i 
s 188 e751! i 
; 750 2276 1 ! IMPLICIT OUTPUTS: i 
: TR soe yi — 
: #38 g¢79 1 i ROUTINE VALUE: 
: 734 see 1! if invalid file header i 
; 735 jae &. if valid file header 
5 T38 2282 : } 2 if deleted file header 
; 738 g284 1 | SIDE EFFECTS: 
3; 739 2285 1! NONE 
Mo BBL : 
: 742 288 1 
eo BB gaa 2 
> 745 5591 HEADER REF BBLOCK, ! file header arg | 
3 bg $598 FILE_ID REF BBLOCK; ! file 1D arg i 
: 748 2294 
3 es $$22 : First check the structure level. i 
: eh 237 if -HEADERCFH2$B_STRUCLEV] NEQ .CURRENT_MTLCMTL_STRUCLEV] i 
: 138 299 RETURN 0; 
: ee of 
; 756 30¢ IF _.CURRENT_MTLCMTL_STRUCLEV) EQL 2 
; 757 303 2 TH 
3; 758 04 ‘BEGIN i 
; 759 05 
: 760 06 !' Check the area offsets and the retrieval pointer use counts for } 
3; 761 07 ' consistency. 
: 8 09 ir 
: 4 10 -HEADERCFH2$B8_IDOFFSET] LSSU SBYTEOFFSET (FH2SL_HIGHWATER)/2 OR 
3 ree 3) -HEADERCLFH2$B_MPOFFSET) LSSU .HEADERCFH $B_IDOFFSETJ OR i 
: 68 313 HEADERCEHOSBCRSOFESET] Leah “HEADERCENSSBCACORESETI. On , 
: 88 314 ;HEADERCFH2SB_MAP_INUSE] GTRU .HEADERLFH2$B_ACOFFSET) - .HEADERLFH2$B_MPOF FSET) 
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| 


STAACP Standalone ACP 16- -Sep-1984 2: AX-11 Bliss-32 V4.0-74 Pa 8 
| 404-000 VERIFY_HEADER = validate file header 14-Sep o19 4 0: ¢¢ ‘63 BACKUP. SRC STAACP 5785504 ” (35 
; 769 15 THEN 

3 aa 18 RETURN 0; 

: 77 1 

: ae i ' At this ryt we have verified that the block at least once was a 
3 ae 9 valid file header. 

3 776 ¢ i Look at the file number in the header. If zero, this is a 

: gr Z deleted header. 

Bia 5 if 

; 780 $ gh ntl} Du an EQL 0 AND 

; 781 HEADERLF NMXJ EQL 

; 7 8 TH 

3 A, 3 , RETURN 2; 

: 785 3 1 

: a ; ¢ } Now compute the header checksum. 

: 788 ; nA if NOT CHECKSUM(.HEADER) 

3; 789 5 HEN 

3 as 338 RETURN 2; 

: 79 2338 

: 79 $325 ' Check file number and file sequence number. 

: e $3) i 

: 796 2343 .HEADERCFH2$W_FID_NUM] NEQ .FILE_IDCFID$W_NUM] OR 

; 797 34 “HEADER FH2SB_ FID “NMXIJ NEQ .FILE_IDCFID$B_NMXJ] OR 

; 798 2344 -HEADERCFH2$W_FID-SEQ) NEQ .FILE-IDCFID$W_SEQ] 

; 500 Seca ; THE tune 2: 

; 801 o3c9 ND : 

; 80 2348 ELSE 

; 80 2349 BEGIN 

3; 804 2350 LOCAL 

; it 3352 MAP_AREA: REF BBLOCK; 

: 807 35 

: 808 2354 ! Now point to the map area and make sure that the extension 
3 4 $322 RVN is zero. Also check the retrieval pointer format data. 
: " 337 MAP_AREA = .HEADER + .HEADERCFH1$B_MPOFFSETJ*2; 

; ig 325 -MAP_AREACFM1$8_EX_RVNJ_NEQ 0 OR 

3 ai% 360 -MAP~AREALFM1$B_ saad yh 

3 $0) THE .MAP~ AREA FM1$B_ LBNSIZE) NEQ 3 

; 9 368 RETURN 0; 

he Bes 

; 820 6 ! Check the retrieval pointer counts for consistency with the 
; $i 67 available space. 

: ae ee 

; $i $59 -MAP_AREACF rise. wused 6t erey MAP fee AVAIL] OR 

; 825 71 “MAP~AREALFM1$B-AVAIL U 255 = (.MAP_ARER + FMISC_POINTERS - .HEADER) / 2 
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STAACP Standalone ACP 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 Pa g 
04 VERIFY_HEADER = validate file header 1o=ge8- 1382 90:32:88 YBACKUP-SRe STAACP.B32; - (35 
7 THEN 
§ 1g RETURN 0; 
$ rg 
0 £6 ' At this potnt. we have verified that the block at least once was a 
1 4 } valid file header. 
5 23 i Look at the file number in the header. If zero, this is a 
¢ 1 } deleted header. 
6 é if .HEADERCFH1$W_FID_NUM] EQL 0 
8 be RETURN 2; 
:] 5 
Bc) 39 
1 tf } Now compute the header checksum. 
“8 $50 if NOT CHECKSUM( HEADER) 
845 91 RETURN 2; 
846 308 
984 39 ; 
48 394 ! Check file number and file sequence number. 
4 396 
gee 397 -HEADERCFHISW_FID_NUM] NEQ PILE. OEE 10Su und OR 
B26 398 -HEADERCFHISW_FID SEQ) NEQ .FILE_IDCFIDS$W_SEQ) 
85 Site HEN 
Sze 400 RETURN 2; 
55 2401 END; 
856 $t58 
857 240 
858 24046 ' Header is OK. 
859 2405 ! 
860 2406 RETURN 1; 
861 2407 1 END; 


1C 00000 VERIFY_HEADER: 
poe 8 wise. EOORD R4 ; 2259. 


Save R2,R3 3 
54 000000006 00 9 9002 MOVAB CHECKSUM, R4 : 
4 AC 00 000 MOVL HEADER : 2297 
50 000000 9° EF p 9900 MOVL CURRENT MTL, RO : | 
1€ A 0 Ae 1 00014 CMPB (R2), 30(RO) ; | 
7 iF 019 co0Ofss«éS$ F 
53 08 A p 018 MOVL  fFILE_ID, R3 F 2342 
02 1E A 1 pi CMPB 30(R0), #2 ; 250 
5 i BNEQ 4$ 3 
26 62 91 000 CMPB sé (R2), «#38 : 2310 
12 1 BLSSU 1$ ; | 
62 01 Ad 91 A CMPB  —s-«AW(R2), (R2) : 2311 
OC iF BLSSU1$ ; 
01 A2 02 Ae 91 CMPB #(R2), 1(R2) + 2312 
05 1F 00 BLSsu. ‘1$ ; 


— 


Standalone ACP 
VERIFY HEADER = validate file header 
02 A2 03 rf i - 
00 ; : 
1 oe A A 4) 2%: 
0 1 A2 9A 0004 
1 50 C2 0004 
51 3A 08 00 FD 46 
08 ag e 0 3¢ 
0 0057 
OD A2 ? a3 
64 5 eS i aa 
65 95 9 006 
Se eH Bes 
oie nd ET 
oie: Bip 
50 01 a 9A OOO7A 4$: 
5 624 3 0007E 
01 AO 9 00082 
4C 12 0008 
" 06 28 32 booss 
03 07 AO 91 Boose 
40 12 00091 5$: 
Pet ne 
” 3% bn £3 g009e 
51 02 ¢6 O00A1 
51 OOFF C1 9E OO0A4 
Eel a a ee BL 
02 ag 83 0081 
15 13 00084 
52 DD 00086 
64 or Fe 0088 
OD 0 £9 0008B 
02 a2 8 008 
Perera (a2. 
4 i3 0C9 6$ 
50 2 p B 


214 bytes, 


Routine Base: 


o 
—_ 


50 


§ 14 
16-Sep- 
14-Sep- 


CODE + O1DA 


BL 
63 
$: 
: ET 
ET 
3; Routine Size: 


1986 19:54:63 


cM 
BGEQU 
BR 


AX-11 Bliss-32 Se etd 
BACKUP.SRCJSTAACP.B32; 


(R2), 2¢R2) 


=> @D 
Rue 
co— « 


- 58(R2), RI 


2» 
—m 
~ 


NAIM — ROO— ~ RMS 
~ 
po) 
—m 
~ 


» CHECKSUM 

(R2), (R3) 

13(R2), 5(R3) 

(R2), 2(R3) 
0 

MAP_AREA 

EA) 

MAP_AREA), #1 

{MAP_AREA) #3 

B(MAP_AREA) 9(MAP_AREA) 

MAP_AREA, R2, R1 

#107 R1 


NOD B VN O2R D 
PM~O 


R2), R 
2)CROJ 
MAP_AR 


Pe a Oe 
A~A-~D-RAOS 


o™~ 


Ne R1 
255(R1), R1 
#0, #8, 9(MAP_AREA), R1 


gine) 


R2 
#1, CHECKSUM 
(R2), (R3) 

4(R2), 2(R3) 
8h 

#2, RO 

#1, RO 

RO 


Pee Se Se Se Se Se Se Ge Ge Se Ge Ge Se Se Ge Ge Ge Be Be Se Be Be Ge Se Se Be Be Be Se Se Ge Fe Fe Fe Se Fe Se Se Se Se Be Se Se Se Se Fe Se Se Se Se Se 
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DONOVULSWN—OO@ 


SANS SSNS 


S 


881 


901 
90 


SESe85e 


oowoowndowowovnovovsd 
Oa a ad ed dd ed 
DONO UEWN—O 


zauw 
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INIA NIAID NININININIPININID 2 2 OO oe ee 
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HEADER - read file header 1e-8ep-1986 90:42 ‘63 BACKUP. SRC STAACP B32; 
ZSBTITL ‘READ_HEADER = read file head 
GLOBAL ROUTINE READ _HEAD ER (FILE_ID, Sir reR)® 
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: 
p FUNCT. DESCRIPTION: 
This routine reads one file header into the specified buffer. 


INPUT PARAMETERS: 
FILE_ID - File ID of header to be read. 


BUFFER - Pointer to buffer. 
IMPLICIT INPUTS: 

CURRENT _MTL - Pointer to MTL for selected volume set. 
OUTPUT PARAMETERS: 

NONE 


IMPLICIT OUTPUTS: 
NONE 
novi eg VALUE: 
True if header successfully read, false otherwise. 


SIDE EFFECTS: 
Header read into buffer. 


+ hae 
FILE_ID: REF BBLOCK, ' Pointer to file ID 
arm BUFFER: REF BBLOCK; ' Pointer to header 
STATUS, ' Status variable 
10SB: VECTORE4,WORDJ, ! 1/0 status block 
FILE_NUMBER, ' Clean file number 
RVN, ' Clean RVN 
vCcB: REF BBLOCK; ' vCB for specified RVN 


Get a clean file number and RVN and validity check. If failure, 
' return failure. 


ER .. PILE _IDCF1D$W_NUM); 
at IDF 1D$8_NMX); 
ef “Teter 


CURRENT SAT ATi RVN BASE] GEQU .CURRENT_MTLCMTL_SETCOUNT) 


RN SS$_DEVNO 
RRENT art MTIL_V tS OF RVN=.CURRENT_MTLCMTL_RVN_BASEI)]; 
NUMBER GTRU .9CBLVCB_ MAXFILIDXJ~THEN RETURN™SS$ _NOSUCHF ILE; 


~— << <Q 
‘_cce —° 


' Read the header. 


CURRENT Pt = sycocves.. INDEXF); 
ATUS = R_W_VIRTU 


rae 19) 
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D HEADERS read file header 1b-Se0-1984 99:82:63 FB Ackup sacistaate o3004 Page 435 


; 9 465 8. 
; ¥ 4 § 
: 9 46 16$_READVBLK, 
7; 9 46 osé, 
s § re " 
; 3 ree BUFFER 
: 9 40g si. ? 
3; 9 47 «FILE NUMBER + .VCBCVCB_HDR_OFFSETI); 
3; 9 474 SWAITFR(EFN=0); 
3 at IF .STATUS THEN STATUS = .JOSBCO); 
; § t39 
; 9 rh ! If failure, return failure. 
; 9 47 ! 
3; 9 480 IF NOT .STATUS 
: 33 rh RETURN .STATUS 
; 938 48 
3; 939 484 
: art mt } Verify the header that was read. 
3 968 487 IF NOT VERIFY_HEADER(.BUFFER, .FILE_ID) 
; 94 488 THEN 
> 944 489 RETURN SS$_NOSUCHF ILE; 
> 945 490 
: 946 491 
3 947 49 ' Successful completion. 
; 948 49 ! 
: 949 2494 SS$_NORMAL 
: 950 2495 1 END: 
001C¢ 00000 ENTRY — HEADER, Save R2,R3,R4 : 2409 
5 08 C2 Booog SUBL2 #8, SP 3 
5 046 =A g° 0000 MOVL FILE_I 3 2482 | 
52 63 3¢ 00009 MOVZWL (R3)> FILE_NUMBE : 
52 08 10 05 As FO 900¢ INSV 5(R35, #16, #8, FILE_NUMBER > 2453 | 
50 04 A’ 9A 0001 MOVZBL 4(R RVN + 2454 | 
51 eons EF 00 00016 MOVL CURRENT_MTL, R1 : 2455 
54 0 Al 9A 9010 BOVZBL 48(R1),~R4 ; 
50 54 C2 1 SUBL R4, RO 3 
50 1F OAT 08 99 FD 0024 CMPZ7V #0, #8, 31(R1), RO : 
5 1A OOO2A BGTRU 1$ 3 
50 7C—sOSF ga sh C aera #124, RO 3: 2456 
50 34 A140 DO 00031 1$ VL 52(R1)CROJ, vCB : 2457. 
1c AO 52 D1 000 CMPL FILE_NUMBER, 28(VCB) : 2458 
4A 1A OO03A BGTRU 4$ 3 
00000000'° F 60 p00 BS VL (VCB), CURRENT_WCB 3 $793 | 
0 1A OA C 04 MOVZWL 26cve 7 3 2473 | 
604 F 0004 PUSHAB (RO)CFILE NUMBER) : 
7E 0200 8F 3C QOO4A MOVZWL #512, (SP) > 2464 
08 AC DD 0004F PUSHL BUFFER > 2671 | 


v0e-000 READ HEADER © read file header 
7E 7C¢ 
14 af +4 
0000vV CF i, re 
a 48: 
000000006 00 9 43 
i 2 | 
BO 
4 
53 DD 
08 aC OD 
FEA7 CF 03 fe 
96 0910 =3=BF ee 
04 
50 01 »bO 
04 


; Routine Size: 144 bytes, Routine Base: CODE + 0280 


1-$e 19 242 
1228087138 90:8 


wm 
ren 
< 
r 


ws 
owe 
D2zw 
o 
< 
~ 
= 
al 


COOCCQOOCOOOOOOOOOOCOCOOCOoO 


SoOOoOOOoOSoOoOoOoOoOoOOOoOoOoOooOO 
OOOCOOCOOOCCOSCSCOOOoSoOoSoO 


0909 090909 SII NI NIN NOAAAOA UII 
CSSSAirssaIn ses SS SS SVEN 
wo 
- 
@ 
o 


+43 ret Bliss-32 V4.0-7 


BACKUP. SRCJSTAACP.B32 


<(SP) 
#9, R_W_VIRTUAL 
RO, STATUS 


=(SP 
#1, SYSSWAITFR 
es 


STATUS, RO 

R 

BUFFER 

i VERIFY_HEADER 


#2320, RO 
#1, RO 


4 
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STAACP Standalone ACP 16-Sep-19 AX-11 Bliss-32 V4.0-74 a 
v04-000 WRITE_H EADER - write file header 14-Se et 00: ¢: 83 BACKUP. SRCIJSTAACP.B832; age 475 
; § ¢ 4 1 ZSBTTL “WRITE_HEADER = write file header’ 
g ? $2 : ROUTINE WRITE-HEADER (FILE_ID,BUFFER)= 
3 5 4 } joe 
3 328 20 1! FUNCTIONAL DESCRIPTION: 
3 36 206 : This routine writes one file header from the specified buffer. 
; 960 504 1 ! INPUT PARAMETERS: 
; 961 505 1! FILE_ID - File ID of header to be written. 
; 366 206 1! BUFFER - Pointer to buffer. 
; 9% 2 1! 
3; 964 1 ! IMPLICIT INPUTS: 
3 #1 293 ; : CURRENT_MTL - Pointer to MTL for selected volume set. 
: 967 511 1 =! OUTPUT PARAMETERS: 
’ 28 21¢ gg NONE 
: 96 51 1! 
; 970 514 1 ! IMPLICIT OUTPUTS: 
; 971 515 1! NONE 
; 97 218 1! 
:; 97 51 1 ! ROUTINE VALUE: 
; 974 313 1! Completion status. 
; 975 519 1! 
; 976 520 1 ! SIDE EFFECTS: 
3; 977 2s) 1! Header written from buffer. 
; 97 5 ; 1! 
: 97 5 1 !<- 
; 980 524 1 
; 981 525 BEGIN 
; 98 526 MAP 
; 98 2sf FILE_ID: REF BBLOCK, !' Pointer to file ID 
: 984 528 BUFFER: REF BBLOCK; ' Pointer to header 
3; «6985 a4 LOCAL 
; 986 530 STATUS, ' Status variable 
: 987 2531 OSB: VECTORE4,WORD], ! 1/0 status block 
; 988 $236 FILE NUMBER, ' Clean file number 
3; 989 $23 VN, ' Clean 
; 990 534 VCB: REF BBLOCK; ' vcB hy seen tied RVN 
3; (991 535 
; 238 239 be 
: 99 53 ' Get a clean file number and RVN and validity check. If failure, 
3 o3e 3338 do nothing. 
: 996 2540 2 FILE_NUMBER = .FILE_IDCFIDSW_NUM); 
; 997 541 2 FILENUMBER<16_.8> =~. FILE_IDCFIDSB_NMX); 
; 998 348 RVN = .FILE 1pEF Ise. RVNJ: 
; 999 54 IF .RVN = .CU — T_MTLCMTL RVN BASE] GEQU .CURRENT_MTLCMTL_SETCOUNT] 
: 1000 544 THEN RETURN SS$_DEVNOTMOUNT ; 
: 1001 545 VCB = .CURRENT_ATLCMTL_VCB(. *RVN-. CURRENT_MTLCMTL_RVN_BASE})]; 
3 One $48 i. FILE_NUMBER GTRU .VCBLVCB_MAXFILIDXJ~THEN RETURN” SS$_NOSUCHF ILE; 
: 1004 oe8 
; 1005 54 ' Recompute the checksum. 
: 1006 550 ! 
: 1007 551 CHECKSUM( .BUFFER); 
3; 1008 552 


fae sear o a  peg Rage 


H Write the block. 
CURRENT_WCB = .VCBCVCB_INDEXFJ; 
says = R_W_VIRTUAL ( 

16$_WRITEVBLK, 

a 

FER, 

5 

t 

S 


(IF .BUFFERCFH2$B_STRUCLEV] EQL 2 
THEN .BUFFERCFH2$W_FID_NUM) EQL 0 
oe ELSE .BUFFERCFH1$W_FID-NUM) EQL 0) 
BITVECTORC.VCBCVCB_IMAP], .FILE_NUMBER-1] = FALSE 


BITVECTORC.VCBCVCB_IMAP], .FILE_NUMBER-1] = TRUE; 


this is the index file header, also rewrite 
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STAACP Standalone ACP 18-5 -19 242: AX-11 Bliss-32 V4.0-7%4 
y04-500 WRITE_HEADER = write file header 12-8 08-1 3b 90:32:88 YBACKUP $e STAAYE 935" Page 423 
009 3 
010 4 
oi] 5 
ORR 
ie 
O19 561 
i nes 
0 64 BuF 
8 i 568 re NUMBER + .VCBCVCB_HDR_OFFSET]) 
0 4 269 SWAITFR(EFN=0); < Mn : 
024 568 2 IF .STATUS THEN STATUS = .J0SBCO); 
025 569 
Be 
058 25 If failure, return failure. 
099 238 if NOT .STATUS 
0 574 
31 379 RETURN .STATUS; 
o38 Tih Bpcy cogeanng gear 
0 2579 e e ingex e bitmap Ce 
0 580 2 iF .VCBCVCB_IMAP) NEQ 0 
0 581 2 THEN 
0 382 
0 38 
§ 
5 
5 
5 
5 
5 
5 
5 
5 
5 


3 7 
eo 1 
$3 
oO 1 
. 1 
o 1 
3 3 
3 
= 1 
e 1 
eo 1 
a 1 
1 
ce 1 
; 1 
° 1 
eo 1 
3 7 
— 1 
. 1 
oO 1 
3 7 
a 1 
_ 1 
_ 1 
3; 7 
3 3 
ee 1 
oe 1 
o 1 
3 % 
| 
e 1 
oO 1 
3 3 
3 
3% 
eo 1 
3 7 
oO j 
oe 4 
3% 
3 3 
e 1 
J 1 
. 1 
e 1 
— 1 
— 1 
5 7 
se 1 
oO 1 
3; 1 
3 Y 
es 1 
o 1 
3 3 


RARPRRARAREE EER ERE RE 


' 
e alternate header. 
iF FILE _NUMBER EQL FIDSC_INDEXF AND .VCBCVCB_ODS_2) 
BEGIN 
98 STATUS = R_W_VIRTUAL ( 
599 " 
ret 10$_WRITEVBLK 
602 Oss, ‘. 
60 " 
060 604 0 
06 605 BUFFER, 
06 606 1 
06 60 .VCACVCB_CLUSTER] * 3 + 1); 


C 
SWAITFR(EFN=0) ; 
IF STATUS THEN STATUS = .10SB(0); 
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ROUTINE TAKE BLOCKS (ACB,COUNT,LBN): NOVALUE= 
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FUNCTIONAL DESCRIPTION: 
This routine modifies the free blocks cist. 


INPUT PARAMETERS: ’ 
ACB - Pointer to allocation control block. 

COUNT - Count of blocks to allocate. 

LBN - Logical block number of blocks to allocate. 


IMPLICIT INPUTS: 
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IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
Allocation List modified. 
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If the entire extent is allocated, free the block. 
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: i 9? th Allocation f d of f 
P H ocation é 
: | 88 is rom end of free extent 
; | 08 ai ACBCACB_COUNTJ = ,ACBCACB_COUNT] = .COUNT; 
: 1210 7 ELSE 
3 1211 7 ¢ BEGIN 
3 1 \¢ 754 : 
3: 121 755 ! Allocation from middle of free extent. 
3 1214 7 § ! Generate a new block. 
: i 2 fe LocaL 
; } " 739 NEW: REF BBLOCK; ! Pointer to new ACB 
: 1219 761 NEW = GET_VM(ACB_S_ENTRY); 
3 1220 76 INSQUE(.NEW, .ACB)? 
: 1221 76 NEWLACB_LBN) = .LBN + .COUNT; 
71 $8 764 NEWLCACB_COUNT] = .ACBCACB_L6N1 +  ACBCACB_ COUNT) - .NEWCACB_LBNI; 
; 16 765 ACBLACB_COUNT) = .LBN - .ACBCACE_LBN); 
3 1224 766 END; 
3 1225 2767 «1 END; 
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-WORD Save R2 


50 04 AC 00 00002 MOVL ACB, RO : 2733 
51 08 AO 9E 00006 MOVAB 8(RO), R1 : | 
50 04 AC DO OOO0A MOVL , : 2725 
0c AO 0c AC DI 9000 CMPL _—sLBN, 12(RO) : 
1¢ 12 0001 BNEQ : | 
0c a0 08 ac CO 0001 ADDL2 COUNT, 12(RO) ; 2732 
61 08 AC C2 OOO1A SUBL2 COUNT, (R1) : 27 
50 1 OO01E BNE : 2734 
50 04 BC OF 0002 REMQUE @ACB, DUMMY : 2740 
04 AC DD 00024 PUSHL ACB : 2741 
10 DD 00027 PUSHL #16 : 
000000006 00 02 FB 00029 CALLS #2, FREE_VM ; 
04 00030 RET : 272 
50 0c Ad 61 C1 00031 18: ADDL3 (R1), 12(RO), RO : 276 
50 08 ac C2 000 SUBL2 COUNT, RO ; 
oc AC 36 D] 00054 CMPL RO, LBN : 
0 § ‘ BNEQ es ; 
61 08 Ac ¢ 0004 SUBL2 COUNT, (R1) : 2750. 
4 00044 RET > 2744. 
10 OD pRe8 23: PUSHL #1 : 2761. 
000000006 00 01 FB 00047 CALLS #1, GET_VM ; | 
04 BC 60 OE 0004 INSQUE (NEW), BACB : 3762 
oc a0 0c AC 08 ac C1 0005 ADDL3 COUNT, LBN, 12(NEW) : 276 
51 04 AC 00 0005 OVL. ACB, R1 + 2764 
52 oc Al 08 al Ci 9005 ADDL grt). 12(R1), R2 : 
08 AO 52 0c Ao C3 006 SUBL g (NEW) , R2, 8(NEW) : 
08 Al oc AC OC «AI f 0006 SUBL3. 12(R1), LBN, 8(R1) > 276 
4 00070 3$: RET : 276 
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GLOBAL ROUTINE STA_ALLOC_LON (COUNT,LBN)= 


eo 
1 
FUNCTIGNAL DESCRIPTION: 
This routine attempts to allocate an extent at a specific LBN. 

No partial allocation is permitted. 

INPUT PARAMETERS: 
COUNT = Block count 
LBN = Logical block number 


IMPLICIT INPUTS: 
CURRENT _VCB 


OUTPUT PARAMETERS: 
NONE 


4.0-74 Page 43 
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IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
True if the allocation was made, false otherwise. 


SIDE EFFECTS: 
Allocation List may be modified. 
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ACB = .CURRENT_VCBCVCB_ACB_FLINK); 
WHILE -ACB NEQ” CURRENT-VCBLVCB_ACB_FLINK] DO 
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: If this entry covers the requested extent, allocate it. 
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-LBN GEQU .ACBCACB_LBN] AND 
Fe + .COUNT LEQU .ACBCACB_LBN] + .ACBLACB_COUNT) 
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BEGIN 
TAKE BLOCKS(.ACB, .COUNT, .LBN); 
A TRUE ; 


ee | 


: If this entry follows the requested extent, exit with failure. 
if .LBN LSSU .ACBCACB_LBN) 
EXITLOOP; 
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ACB = .ACBCACB_FLINK); 
END 
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FALSE 
END; 
000¢ 00000 .ENTRY STA_ALLOC_LBN, Save R2,R3 
53 00000000" EF 3 09008 MOVAB CURRENT VCB, R3 
0 63 DO 0000 MOVL § CURRENT“VCB. RO 
3 28 Ad 00 0000C MOVL.  40(RO),~ACB 
50 ‘ C1 00010 1$ ADDL3 #40, CURRENT_VCB, RO 
50 D1 00014 CMPL ACB. RO 
13 00017 BEQL $ 
OC A2 08 AC D1 00019 CMPL LBN, 12(ACB) 
20 1F OOO1E BLSSU-2$ 
51 08 Ac 04 AC C1 00020 ADDL3 COUNT, LBN, R1 
50 OC A2 08 A2 C1 00026 ADDL3 8 (ACB), 12(ACB), RO 
50 51 D1 0002C CMPL 1, RO 
OF 1A 0002 BGTRU 
7E 04 AC 7D 00031 va COUNT, -(SP) 
38 DD 00035 PUSHL 
FFS3 CF 03 FB 00037 CALLS #3, TAKE_BLOCKS 
50 01 DO 0005¢ MOVL #1. RO 
04 0003F RET 
0c a2 08 AC D1 00040 2s: CMPL = LBN, 12(ACB) 
05 1F 00045 BLSSU 3$ 
52 62 DO 00047 OVL (ACB), ACB 
C4 11 000A BRB 1$ 
50 D4 0004C 3$: CLRL ~—_ RO 
04 0004E RET 
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ZSBITL "STA_ALLOC_BEST = allocate blocks best fit’ 
ROUTINE STA_ALLOC_BEST (RCOUNT,ACOUNT,LBN)= 


'e4 
i 
eal -- DESCRIPTION: 


his routine attempts a best fit allocation of an extent. 
Partial allocations are allowed. 


INPUT PARAMETERS: 
RCOUNT - Requested block count. 
ACOUNT - Pointer to where actual block count is stored. 
LBN - Pointer to where logical block number is stored. 


IMPLICIT INPUTS: | 
CURRENT _VCB 


OUTPUT PARAMETERS: 
NONE 
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IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
True if the allocation was made, false otherwise. 


SIDE EFFECTS: 
Allocation List may be modified. 
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86 MINACB: REF BBLOCK, i 
86 : REF BBLOCK, ! Largest count 
+s REF BBLOCK; ! Pointer to ACB 
| 


A.W 


RRCOUNT = (.RCOUNT + .CURRENT_VCBLVCB_CLUSTER] - 1) / .CURRENT_VCBLVCB_CLUSTER] * .CURRENT_VCBLVCB_CLUSTERI; | 
ACB = .CURRENT VCBLVCB_ACB_FLINK]; 


MINACB = MAXACB = 0; 
WHILE ACB NEQ CURRENT_VCBLVCB_ACB_FLINK] DO 


Wr 


ae 


Nea aR en eRe Gh Gh gh GAGA GR GA REAR GE GAGA GA UA GA GAGA 4 


09.00 Cd Cd C9 09 CO: 
SSNS 


AANA ALAIN NIAAA NAAN 


! Establish the smallest extent at least as large as the request, 
} if one exists. 


if .ACBCACB_COUNT] GEQU .RRCOUNT 
If -MINACB EQL 0 
HEN 
MINACB = .ACB 
If, ACBLACB_COUNT LSSU .MINACBLACB_COUNT] 
MINACB = .ACB; 
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: Establish the largest extent. 
if .MAXACB EQL 0 
THEN 
a = .ACB 
a eet cnnmine GTRU .MAXACBCACB_COUNTJ 
1 


2 


(C2 CO CD C9 CD CD CD CD: 
Ssssese 
wn Oo t 


BaF 


MAXACB = .ACB; 
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ACB = .ACBCACB_FLINK); 
END; 


ViFWN—OVONAUSIAN—O”D 


a333 


IF .MINACB NEQ 0 
THEN 
BEGIN 


i Allocation completely satisfied from the smallest free extent larger 
: than the request. Blocks allocated from the beginning of the extent. 


-ACOUNT = .RRCOUNT; 
-LBN = .MINACBLACB. LBN); 
TAKE _BLOCKS(.MINACB, -RRCOUNT, .MINACBCACB_LBNJ); 
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END 
LSE IF .MAXACB NEQ 0 
HEN 
BEGIN 

; Allocation partially satisfied from the entire largest free extent. 


-ACOUNT = .MAXACBLACB_COUNT); 
MAXACBCACB_LBNI; 
S(.MAXACB, .MAXACBCACB_COUNT], .MAXACBCACB_LBNJ); 


WAU 


i 


~LBN = 3 
TAKE _BLOCK 
TRUE 
END 

ELSE 


BEGIN 
OUNT = 0; 


Wi 
Sette 
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AC 
FALSE 
END 
END; 


Se Se Ge Ge Se Se Se Ge Ge Ge Ge Ge Fe Se Ge Ge Se Se Ge Se Se Fe Ge Ge Ge Se Se Ge Se Se Ge Se Se See Se Se SeSe Se Se Se ee te tesg 
ed ns td ds an 2 4 9 a Ss ts te 


FUND O OONOU EWN " O OONOUS WN oO 


WANA 
RANTS 


003C 00000 STA_ALLOC pests 


00 Save R2,R3,R4,R5 3 

51 00000000" EF 20 000 VL CURRENT yee, R1 : 
50 04 Al 00 MOV2WL 4(R1), R ; 
50 04 ac CO 0000D ADDL2  RCOUNT, RO ; 
50 07 00011 DECL RO : 


a bal 4 Standalone ACP 
v04 STA_ALLOC_BEST = allocate blocks best fit 
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0 

4 

4 

55 

08 A3 
53 

08 A2 
52 

50 

08 BC 
oc 3=«BC 
08 BC 
oc BC 
7E 

FEBC CF 
50 


3; Routine Size: 142 bytes, 


Routine Base: 


06 Al 3 1 
i Sn 
06 =A C ° 1A 
29 C4 QOO1E 
28 8 0 09 1 
aH Se Ba 
38 D 4 B 
e? 13 : 
08 AO Di 000 
3 if 00 
67 48 000 
08 a0 D1 QO03A 
9 1E 0003F 
DO 00041 
32 D5 00044 
07 1 nt 
08 Ag Di 0004 
03 18 00040 
50 D0 O004F 
60 00 FT 
DO 11 0005 
52 D5 00057 
19 13 00059 
53 00 00058 
OC A3 00 0005F 
OC A3 DD 00064 
28 8B 00067 
14 11 00069 
36 0 00068 
19 13 00060 
08 A2 00 0006F 
oc A a4 00074 
08 A2 7D 00079 
52 0D 00070 
03 FB 0007F 
01 00 00084 
04 00087 
08 BC D4 00088 
50 04 00088 
04 0008 
CODE + 0558 


14- 


16-500-19 
3o5-19 


18: 


7$: 


Be 99:50:63 


4(R1), R2 

R2 

4(R1), RRCOUNT 
R RRCOUNT 
40iR1), ACB 


BOCRID RG 
ACB, RG 


(ACB), 
MINACB 

(ACB), 8(MINACB) 
heise 


RRCOUNT 


4$ 
* aoe 8(MAXACB) 


RRC OUNT, @ACOUNT 
Ve (MINACB) , @LBN 


gEncRS, »RS> 
MAXACB 

8 (MAXACB) @ACOUNT 
12(MAXACBS, 
BUMAXACBS, ois 3) 
MAXA 


CB 
#3, TAKE_BLOCKS 
#1, RO 


@ACOUNT 
RO 


AX-11 Bliss-32 V 
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STAACP Standalone ACP 16-Se -1984 00:42: AX-11 Bliss-32 V4.0-74 Pa 48 
v04-000 FREE_BLOCKS = return blocks to free List 12-808-1 986 90:92:88 EBACKUP- SRE STAACP.B832; 916) 
3 1 +] 935 1 ZSBTTL ‘FREE BLOCKS - return blocks to free List’ 
; : 44 4 § : GLOBAL ROUTINE FREE_BLOCKS (COUNT,LBN): NOVALUE= 
3; 1399 9 3 1 fee 
: 1400 9 7! 
; 1401 940 1 ! FUNCTIONAL DESCRIPTION: 
3 106 941 1! This routine puts the specified blocks back onto the free List 
3; 140 942 1! for the currently active volume. 
3 1404 945 1! 
; 1405 944 1 ! INPUT PARAMETERS: 
: He's 3 945 1! COUNT - Count of blocks to be freed. 
3: 140 946 1! - Starting LBN. 
3; 1408 947 1! 
3 1409 eee 1 ! IMPLICIT INPUTS: 
5 sei9 Bee ! : CURRENT_VCB - Pointer to VCB for volume. 
3 1e16 951 1 ! OUTPUT PARAMETERS: 
3 141 926 1! NONE 
3 1416 Soe 1! 
3 1615 954 1 ! IMPLICIT OUTPUTS: 
3 rors 2955 1! NONE 
3 141 2956 1! 
3; 1418 $gee 1 ! ROUTINE VALUE: 
3 1419 958 1! NONE 
3; 1420 2959 1! 
3; 1421 960 1 ! SIDE EFFECTS: 
$ 1656 961 1! ACB List altered. 
3 142 386 1! 
3 1424 963 1 !-- 
3 1425 964 1 
3 1426 965 § BEGIN 
3 1427 2966 LOCAL 
; 1428 2967 2 ACB: REF BBLOCK, : ACB following released extent 
3 ioe 2968 § PREV_ACB: REF BBLOCK, ' ACB preceding released extent 
3 14 69 ALLOC_ACB: REF BBLOCK; ! ACB allocated or deallocated 
3 1431 970 § 
3 1432 971 
3 1433 3444 ! Protect against bogus parameters. 
3 be 344 ! 
3 1435 974 IF .COUNT EQL 0 THEN RETURN; 
3 1436 975 
3 1437 976 
3 1438 977 ' Search the ACB List on the spereer sete VCB for the ACB describing an extent 
3 re 3379 : following the extent to be released. The ACB List is in LBN order. 
3 1441 980 ACB = CURRENT VCBCVCB_ACB_FLINK]; 
3 rey 981 DO ACB = .ACBCACB_FLIAKI 
3 144 98 UNTIL .ACB EQL CURRENT _VCBCVCB_ACB_FLINK] OR .ACBCACB_LBN) GTRU .LBN; 
3 1464 98 PREV_ACB = .ACBCACB_BLINKJ; 
3 1445 984 
3 1446 985 E 
: ret 4] : Check for contiguity with ACB or PREV_ACB or both and proceed accordingly. 
3: 1449 988 I 
3; 1450 989 -PREV_ACB _NEQ CURRENT_VCBCVCB_ACB_FLINK] AND 
; 1e3) 330 ‘ gy REV ACBEACE_LENI + [PREV_ACBCACB_COUNT) EQL .LBN 


ACBCACB_LBN] = .LBN; 
acB ACB_COUNT] = .ACBCACB_COUNT] + .COUNT; 


ELSE 
BEGIN 


: Contiguous with neither. Generate a new ACB. 


ALLOC_ACB = GET_VM(ACB_S_ENTRY); 
INSQUE(.ALLOC_ACB, .PREV-ACB); 
ACB-COUNT] = COUNT; 


ALLOC_ACB 
ACBILBN) = .LBN; 


ALLOC_ACB 
END; 


BELLE PPPS 
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END; 


001¢ 00000 .ENTRY FREE BLOCKS, Save R2.R3,R4 
54 04 ac 06 0002 MOVL COUNT, R4 
01 12 000 BNEG =«*'1$ 
04 900 RET 
53 00000000" EF 28 C1 1$: ADDL3 #40, CURRENT_VCB, R3 
0 DO Oo11 MOVL 
50 60 00 00014 28: MOVL (ACB), ACB 
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STAACP Standalone ACP 16-Sep-1984 00:42:29 AX-11 Bliss-32 V4.0-74 
yoo 000 FREE_BLOCKS = return blocks to free List 12286871382 90:82:63 EBACKUP-SRCISTAACP.B32; 
; 1453 936 IF 
3 1454 99 -ACB NEQ CURRENT VCBCVCB_ACB_FLINK] AND 
> 1455 994 -LBN + .COUNT EQC .ACBCACB_LEN 
: 1289 396 THEN BEGIN 
>; 1458 399 ; 
3 1459 998 : Contiguous with both. Modify PREV_ACB to describe all 3 extents and 
3 sent 444 : release ACB. 
3 1606 001 PREV_ACBCACB_COUNT] = .PREV_ACBCACB_COUNT] + .COUNT + .ACBCACB_COUNT]); 
3 146 00 REMQUE(.PREV-ACB, ALLOC_ACBY; 
> 1464 00 FREE_VM(ACB_S_ENTRY, .ACLOC_ACB); 
> 1465 004 N 
; 1608 005 ELSE 
3; 146 006 BEGIN 
> 1468 007 : 
3: 1469 008 ! Contiguous with PREV_ACB but not ACB. Modify PREV_ACB to describe 
3 pga 00 : both extents. 
3 ore PREV_ACBCACB_COUNT] = .PREV_ACBCACB_COUNT] + .COUNT; 
3 147 3 END 
3 1474 2 ELSE 
3 1475 IF 
3; 1476 -ACB NEG CURRENT _VCBCVCB_ACB_FLINK] AND 
3 1477 -LBN + .COUNT EQC .ACBCATB_LENI 
3 1478 THEN 
: ; He 4 BEGIN 
3; 1481 ' Contiguous with ACB but not PREV_ACB. Modify ACB to describe 
3 3 o¢ ! both extents. 
3 148 : 
3 % 
3 3 
s } 
3 Y 
3 1 
3 Y 
3 % 
3 ; 3 
3 1 : 
3: 1 
3: 1 
31 
3 1 
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STAA Standalone ACP \¢- Sep-1984 AX-11 Bliss-32 V4.0-74 Pa 0 
voo~000 FREE “BLOCKS = return blocks to free List 14- eet hi 99: 34: 5 EBACKUP.SRCISTAACP.B32; 9489 
53 50 01 00017 CMPL = ACB, R3 ; 2982 
0 OY SOTA BEQL 3 
08 Ac 0c AO 01 Ooi CMPL  12(ACB), LBN : 
Fl 18 1 BLEGQU F 
53 04 ag D0 000 ; 3$: MOVL 4(AcB) tpP REY ACB : 2983. 
35 13 O003A Beat 58 Tana 
51 Oc A2 08 ¥] C1 $0 ADDL3 8(PREV_ACB), 12(PREV_ACB), R1 : 2990 
08 Ac 1 D1 000 CMPL R1, LBN : 
F 12 000 BNEG 5$° : | 
53 0 01 000 CMPL ACB, R3 : 2993, 
25 13 00038 BEQL_ = 4$ : 
51 54 08 AC Ci 00030 ADDL3 LBN, R4, RI + 2996 | 
oc Ad 51 D1 00042 CMPL » 12¢ACB) : | 
1A 12 00046 BNEG : | 
51 54 08 A2 C1 9004 ADDL3 8(PREV_ACB), R1 ; 3001, 
08 A 08 8041 9E 0040 MOVAB agcaceyCR1J, Bténey ACB) ; | 
5 $¢ OF 0005 REMQUE (PREV_ACB), ALLOC_ACB : 3002. 
53 DD 00056 PUSHL ALLOC"ACB ; 3003, 
10 DD 0005 PUSHL #1 : | 
000000006 00 02 FB OO0SA CALLS #2, FREE_VM ; 
04 00061 RET > 2992. 
08 A2 54 CO 00062 48: ADDL2 4, 8(PREV_ACB) : 3011, 
04 00066 RET > 2992. 
53 50 D1 00067 5S: CMPL ACB, R3 : 3015 
15 13 0006A BEQL ; | 
51 54 08 AC C1 0006C ADDL3 LBN, R4, RI ; 3016 
oc Ad 51 01 00071 CMPL » 12¢ACB) F 
0A 12 00075 BNEQ ; 
oc ad 08 AC 00 00077 MOVL, LEN, 12(ACB) : 3023) 
08 Ad 54 CO 0007C ADDL2 » 8CACB) > 3024 
04 00080 RET : 3014 
10 DD 00081 6S: PUSHL #16 : 3031 
000000006 00 01 FB 00083 CALLS #1, GET AY ; | 
53 50 DO 0008A MOVL RO, ALLOC ; 
62 63 OE 0008D INSQUE (AL Lot UACB) « 8 PREV ACB) : 3032) 
08 A3 04 aC 7D 00090 MOVQ COUNT. “B(ALLOC_ACBY : 3033. 
04 00095 RET : 3036, 


; Routine Size: 150 bytes, Routine Base: CODE + 05E9 
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ep Bliss-32 ae ete 
BACKUP. SRC JSTAACP.B832; 


ZSBTTL "MAKE POINTER! = make ODS-1 ma 
GLOBAL ROUTINE MAKE_POINTER1 (BUFFER, 


'e¢ 
' 
FUNCTIONAL DESCRIPTION: 
This routine appends retrieval pointers to the map area of an 
ODS-1 file header describing the given count and LBN. 
INPUT PARAMETERS: 
BUFFER 


COUNT 


4 ow 
OUNT ,LBN,UNMAPPED) = 


Pointer to file header buffer 
Block count 


LBN Starting logical block number 

UNMAPPED (optional) Number of blocks not mapped 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 


ROUTINE VALUE: 
SS$_NORMAL or SS$_HEADERFULL. 


SIDE EFFECTS: 
NONE 


BEGIN 

BUILTIN 
ACTUALCOUNT; 

MAP 

Loca BUFFER: REF BBLOCK; ! Pointer to file header buffer 
CURRENT_COUNT, running block count 
CURRENT _LBN running LBN 


REF BBLOCK, 


MAP_AREA: pointer to map area 
MAP_POINTER: REF BBLOCK; 


pointer to map area 
Compute the address in the file header where the pointer should go. 
Then determine the format of the pointer and build it. 

MAP_AREA = .BUFFER + 2 * .BUFFERCFH2$B_MPOFFSET); 

MAP-POINTER = .MAP_AREA + FMISC_POINTERS + .MAP_AREALFM1$B_INUSE]*2; 


CURRENT_COUNT = .COunT; 
CURRENT_LBN = .LBN; 


BEGIN 


roe § 


1 
) 


ELE tee 
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STAACP Standalone 1-98 -1984 00:42: AX-11 Bliss-32 V4.0-74 
voe-000 MAKE OPOINTERT = make ODS-1 map pointer 12-86-1382 00:62:88 BACKUP.SRC JSTAACP.832; 
3 7 $ 94 
: ! 95 H Check for map area overflow. 
; 1559 3 If .MAP_POINTER + 4 GTRA .BUFFER + SBYTEOFFSET(FH1$W_CHECKSUM) 
; 1560 98 THEN 
: 1561 099 4 BEGIN 
: 1 ¢ 100 4 IF ACTUAL COUNT () GEQu 4 
; 156 101 4 THEN PPED = .CURRENT_COUNT; 
: 1564 1 : 4 RETURN” ess _HEADERFULL; 
3; 1565 1 END; 
31 66 104 
3; 156 105 
3 12e8 138 } Build the map pointer. 
: 1570 108 hap -AREACFM1$B_INUSEJ = .MAP_AREACFM1$6 INUSE} | + 2; 
3 1571 109 MAP~POINTER rns Aten LBN) = z Tennent T LBN<16,8 
: 137 110 MAP~POINTERLF COUNT CURRENT _C suet: b56) -1; 
: 157 111 MAP~POINTER as L OWLBN) | . -CuaRENT NANO. 16>; 
: 1574 118 MAPPOINTER = .MAP_POINTE 
: 1575 113 3 
: 1576 114 
3 1300 132 Decrease residual count. 
; 1579 117 CURRENT _LBN = .CURRENT_LBN + MIN(.CURRENT_COUNT, 256); 
3 1399 3118 ; EURRENT.. COUNT = .CURRERT_COUNT - MIN(. CURRENT _COUNT, 256); 
: 158 120 2 UNTIL .CURRENT_COUNT EQL 0; 
; 1888 3121 2 - 
: 1584 3122 2 
: 1585 3123 2 SS$_NORMAL 
; 1586 3124 1 END? 
003¢ 00000 ENTRY MAKE POINTER], Save R2,R3,R4,R5 
53 04 AC 00 00002 OVL BUFF FER, R3 
50 01 A3 9A 00006 MOVZBL RO 
52 8340 3E OOOOA MOVAW ns) «CRO, Ma AREA 
50 0 Ag 9A S008 MOVZBL et 
50 OA A24 H 001 MOVAW OCMAP_ AREAS CRO} MAP_POINTER 
51 08 AC 00 00017 MOVL T COUNT ~ 
54 OC AC pO 0018 MOVL tan “{unRENT. . BN 
53 O1FC §=6C3)—s«9E ~(O001F MOVAB B(R3), R3 
55 04 AO 4: 0024 1$: MOVAB 4(RO), RS 
53 55 01 00028 CMPL =e RS, - RS 
OF 1B 99 B BLEQU 3$ 
04 6c 91 00 CMPB sé AP), #4 
04 1F 000 BLSSU _2$ 
10 eC 31 0 99 2 OVL CURRENT , COUNT, @UNMAPPED 
08c8 F ; oh : 23: a ° 
08 A 02 80 99 3$ ADDB2 i 8(MAP_AREA) 
55 54 0 1 Ff 4 EXTZV 6, #8 CURRENT LBN, RS 
69 5 9 004 MOVB 5, (MAP_POINTERT 
51 dO 00048 MOVL CURRENT ProUNt. R5 
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STAACP Standalone 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 
v04- MAKE OPOINTERT = make ODS-1 map pointer 12-808-1 382 90:22:63 BACKUP.SRCJSTAACP Yb: 83504 
00000100 =F é } 4 CMPL R5, #256 
2 BLEQ 
22 0100 F MOVZWL #256, R5 
01 Ad 1 59 4$: 3 as 1(MAP_POINTER) 
02 A0 4 8 5 MOVW.  CURRENT_L LEN. eAter POINTER) 
4 ¢ 6 ADDL #4, MAP-POIN 
4 2 C 6 ADDL RS, CURRENT wi 
1 ; 6 SUBL R5, CURRENT_COUNT 
7 068 BNEQ 1$° 
50 1 =O 0060 MOVL #1, RO 
04 00070 RET 


; Routine Size: 113 bytes, Routine Base: CODE + 067F 
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STAACP Standalone ACP hese -1984 00:42: AX-11 Bliss-32 V4.0-74 Pa 54 
yoa-000 MAKE POINTER = make ODS-2 map pointer 12-Sep-19 4 90:92:63 EBACKUPSRe STAACP.B32; 9 18) 
3: 1 3 125 1 ZSBTTL "MAKE_POINTER = make ODS-2 gee pereer. 

: : 34 } § ! GLOBAL ROUTINE MAKE POINTER (BUFFER,COUNT,LBN)= 

: 103) 156 i 

:1 38 130 1 ! FUNCTIONAL DESCRIPTION: 

3 15946 131 1! This routine appends a retrieval pointer to the map area of an 
; } 95 ; ¢ : } ODS-2 file header describing the given count and LBN. 

; 1399 134 1 | INPUT PARAMETERS: 

; 1598 135 1! BUFFER - Pointer to file header buffer 

3 1599 1 $ 1! COUNT - Block count 

3 1000 1 : } LBN - Starting logical block number 

; 1608 139. 1 | IMPLICIT INPUTS: 

80a ey yi a 

> 1605 148 1 ' OUTPUT PARAMETERS: 

3 1o58 rb : } CURRENT_VCB - Pointer to VCB for selected volume. 

: 1608 3145 1 | IMPLICIT OUTPUTS: 

wm Bay) 

: 1611 3108 1 ' ROUTINE VALUE: 

3 1ol¢ 3150 ; SS$_NORMAL or SS$_HEADERFULL. 

> 1614 151 1! SIDE EFFECTS: 

3 1615 3126 1! NONE 

3 1616 15 7 3 

3 1617 3154 1 !<= 

3 1618 e122 1 

1p Hg Re 

; 1621 3158 : ae... BUFFER: REF BBLOCK; ! Pointer to file header buffer 
: iS Hs MAP_POINTER: REF BBLOCK; ! pointer to map area 

: 1625 16 

; 1626 3168 ! Compute the address in the file header where the pointer should go. 
3 los? $198 Then determine the format of the pointer and build it. 

; 1629 166 2 MAP_POINTER = .BUFFER + 2 * (.BUFFERCFH2SB_MPOFFSET] + ,BUFFERCFH2$B_MAP_INUSEJ); 
: 1831 188 

: 1632 189 IF .COUNT LEQU 256 AND .LBN LSSU 1°22 

3; 163 170 THEN 

é Ht: Ve BEGIN 

; 1936 178 Check for map area overflow. 

; \o% 0 iF -MAP_POINTER + 4 GTRA .BUFFER + 2 * .BUFFERCFH2$B_ACOFFSET) 

: 1640 179 RETURN SS$_HEADERFULL; 

Oe 

: 186 180 ' Build the map pointer. 

3 1644 181 : 
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STAACP Standalone ACP 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 Pa 55 
yoo 000 MAKE_POINTER = make ODS-2 map pointer 12286871382 90:62:88 BACKUP. SRC STAACP 6324 9° 18) 
> 1645 1 : MAP_POINTER[FM2S$V_FORMAT] = FM2$C_FORMATI; 
3 1668 1 MAP_POINTERLFM2$B_COUNT1) = .COUNT = 1; 
+ 1646 184 MAP~POINTERLFM2S$V_HIGHLBN] = .LBN<16,6>; 
+ 164 185 MAP~POINTERLFM2SW-LOWLBN] = sbBNCO 163; 
; 166 BUFFER FHOSB_MAP_INUSE] = .BUFFERLFH2$6_MAP_INUSE) + 2; 
; 182 188 2 ELSE IF .COUNT LEQU 16384 
; 169¢ 189 2 THEN 
ioe in 
3 192? 136 } Check for map area overflow. 
: 1887 194 if .MAP_POINTER + 6 GTRA .BUFFER + 2 * .BUFFERCFH2$B_ACOFF SET] 
: 1659 196 RETURN SS$_HEADERFULL; 
We HR 
: 1e6¢ 199 ! Build the map pointer. 
> 166 200 i 
3 1664 201 MAP_POINTERLFM2$V_FORMAT] = FM2$C_FORMAT2; 
; 1665 $e MAP_POINTERLFM2$V_COUNT2] = .COUNT = 1; 
> 1666 20 MAP~POINTERLFM2$L_LBN2] = .LBN; 
: 1667 04 BUF FERCFH2$B_MAP_INUSE] = .BUFFERCFH2$B_MAP_INUSE) + 3; 
3 1668 3208 END 
: 1669 06 ELSE IF .COUNT LEQU 1°30 
> 1670 320 THEN 
; 1671 3208 BEGIN 
: 1878 3593 !' Check for map area overflow. 
+ 1674 3211 i 
; 1679 3212 if .MAP_POINTER + 8 GTRA .BUFFER + 2 * .BUFFERCFH2$8_ACOFF SET) 
: 1677 3214 RETURN SS$_HEADERFULL; 
ae BR 
: 1e09 $i; ; Build the map pointer. 
: 1682 3518 3 “MAP_POINTER = ROT(.COUNT-1, 16); 
: 168 3220 MAP_POINTERLFM2SV_FORMAT] = FM2S$C_FORMATS; 
+ 1684 3221 MAP~POINTERLFM2$L~LBN3] = .LBN; 
3 168° 32¢ BUF FERCFH2SB_MAP_INUSE) = .BUFFERCFH2$B_MAP_INUSE] + 4; 
; 1888 3557 ELSE 
: 1688 3228 SIGNAL (BACKUP$_LARGECNT, 1, CURRENT_VCBCVCB_DEVICE)); 
: 1850 $58 
+ 1691 $54 $S$_NORMAL 
: 1692 229 1 END: 
001¢ 00000 .ENTRY MAKE _POINTER, Save R2,R3,R4 > 3126 
51 4 Ac p 0002 MOVL BUFFER, R1 ; 3166 
50 1 Al 9A 00006 MOVZBL ri) RO ; 
52 A Al. 9A OOOOA MOVZBL 5SB(R1S, R2 : 


—_—_————_——— 
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STAACP Standalone ACP 1h-$0 -1984 00:42: AX-11 Bliss<-32 V4.0-74 P 
yoo 000 MAKE_POINTER = make ODS-2 map pointer 1228681382 90:82:88 {BACKUP SRE STANCE 3084 29e 438 
52 g0 0 ADDL2 2, RO F 
00 Tae Bh S881 ROMA SRIAg RO} mar_Poun seo 
00000100 BF $3 D1 00019 CMPL Rg #056 : 
1A 000 BGTRU 1$ : 
00400000 = 8F 0¢ AC 01 000 CMPL LBN, #4194306 : 
2c 1E 0002 BGEGU§ 1$ : 
54 04 AO 9E 000 MOVAB 4(RO), R4 + 3175 
5 02 Aj A 00 MOVZBL 2(R1), R2 : 
5 6142 3€ 000 MOVAW (R1)CR2], R2 ; 
5 54 D1 00038 MPL = R4, R2 : 
68 1A 0038 BGTRU 3$ : 
60 02 OF 1 £0 030 INSV. #1, #14, #2, (MAP_POINTER) : 3182 
60 5 01 83 00042 SUBB3 «#1, R3, (MAP_POINTER) : 318 
01 Ad 06 00 OE AC FO 00046 INSV LBN+2, #0, #8, 1(MAP_POINTER) : 3184 
02 A0 0¢ AC BO 0004p MOVW BN, (MAB POINTER) : 3185 
3A SCAT 02 80 00052 ADDB2 #2, 58(R1) : 3186 
69 11 00056 BRB 5$ : 3169 
00004000 =-8F 53 D1 00058 1$ CMPL 3, #16384 : 3188 
2A 1A 0005F BGTRU 2$ : 
54 06 AO 9E 00061 MOVAB 6(RO), R4 + 3194 
52 02 Al 9A 00065 MOVZBL 2(R1), R2 ; 
52 6142 3€ 00069 MOVAW (R1)CR2J, R2 ; 
52 54 01 0006 CMPL RG, R2 : 
33° 1A 00070 BGTRU 3$ o : 
60 02 O£ 02 FO 9007¢ INSV #2, #14, #2, (MAP_POINTER) 3 3201 
52 FF A3 9E 0007 MOVAB =1(R3), : 3202 
60 OE 00 52 FO 00078 INSV R2, #0, #14, (MAP_POINTER) : 
02 Ad Oc AC dO 90080 MOVL _LBN, g(MAP_POINTER) : 3205 
3A A 03 80 0008 ADDB2 #3, 58(R1) : 3204 
4F 11 00089 RB 7$ : 3188 
40000000 = 8F 53 D1 00088 2$: CMPL R3, #1073741824 : 3206 
2F 1A 00092 BGTRU 6$ ; 
54 08 AO 9E 00094 OVAB 8(ROY, R4 : 3212 
32 02 Al 9A 00098 MOVZBL 2(R1), R2 ; 
2 6142 3E€ 0009C MOVAW (R1)CR2J, R2 : 
52 54 D1 00 Ap CMPL R4, R2 ; 
06 1B 000A BLEGU 4$ : 
50 08c8 8F 3C OO0AS 3S MOVZWL #2248, RO : 3214 
04 OOOAA RET ; 
52 FF a3 9E OOOAB 4$ MOVAB -1(R3), R2 : 3219 
52 10 9C OOOAF ROTL #16, R2, (MAP_POINTER) : 
01 AO CO} «6BF «688 00083 BISB2 #192, 1(MAP_POINTER) > 3220 
94 AO 0c ac b0 60088 MOVL LBN, 4(MAP_POINTER) ; 1 
A AI 04 BD ADDB2 #4, 58(R1) ; 2 
17 11 690¢1 5$: BRB 7$ ; 96 
7E 00000000" EF 0 C1 000C3 6$: ADDL3 #32, CURRENT_VCB, -(SP) 3 322 
1 0D 000CB PUSHL #1 ; 
000000006 8F DD SCD PUSHL #BACKUPS$_LARGECNT : 
000000006 00 03 FB 000D CALLS #3, LIBSSIGNAL ; 
50 01 DO OOODA 7$: MOVL #1. RO : 3229 
04 00000 RET ; 


3; Routine Size: 222 bytes, Routine Base: CODE + 06F0 


H 16 
STAACP Standalone ACP 16-Sep-1984 00:42: AX-11 Bliss-32 v4.0-74 
ve 000 CREATE_WINDOW = create a window block 12-8681 882 99:82:63 YBACKUP.SRe STAACP 83064 
> 1694 9 1 ZSBTTL ‘CREATE_WINDOW = create a window block’ 
; 192? ! GLOBAL ROUTINE CREATE WINDOW (P_HEADER,P_RVN,P_WINDOW,START_VBN,WINDOW_SIZE)= 
g 1899 5 1 !e4 
3; 1698 4 1! 
3; 1699 5 1. ! FUNCTIONAL DESCRIPTION: 
3 1700 § 1! This routine generates a window block (or blocks) from a file 
: 170) i | } header, reading the extension headers as necessary. 
: 1708 9 1 ! INPUT PARAMETERS: 
3 1704 40 1! P_HEADER - Pointer to file header to be processed. 
3 1705 41 1! a - Relative volume number of file header. 
3 17 ¢g 1! P_WINDOW = Pointer to where window is returned. 
; 170 45 1! START _VBN - Starting VBN of file header. | 
3 1708 rt: : WINDOO_SIZE - Minimum size to allocate for window in pointers. 
3; 1710 3246 1 ! IMPLICIT INPUTS: 
3; 1711 47 1! CURRENT _MTL - Pointer to MTL for selected volume set. 
§ ar 3508 1! 
3; 171 249 1 ! OUTPUT PARAMETERS: 
3 1714 3250 1! NONE 
3 1715 352! se 
3; 1716 $2¢ 1 ! IMPLICIT OUTPUTS: x 
3 Hat $527 } CURRENT_MTLCMTL_FILESIZE) - Contains total space allocated to file. 
3 1719 3255 1 ! ROUTINE VALUE: 
3: 1720 256 1! Completion status. 
3 1721 3257 1! 
° \7e¢ 258 1! SIDE EFFECTS: 
3 172 259 1! NONE 
3 1724 260 1! 
3 1725 3261 1 !<- 
3 1726 $506 1 
3; 1727 3263 2 BEGIN 
3 1728 $508 § LINKAGE 
> 1729 265 L_MAP_POINTER= JSB: 
: 1730 3266 GLOBAL (COUNT=6, LBN=7, MAP_POINTER=8); 
: 1731 3502 EXTERNAL ROUTINE > 
: 1732 268 GET_MAP_POINTER: L_MAP_POINTER; ! Get value of ODS-2 file map pointer 
3 1733 3269 § LOCAL 
3 1734 3550 STATUS, ' Status return 
3 1735 271 2 W SIZE, ! size to allocate window 
3: 1736 $f6 DYNWCB: REF BBLOCK, ! Pointer to dynamic WCB 
: Viet $f HEADER: REF BBLOCK, ! Pointer to current file header 
: 1738 74 RVN, ' RVN of current file header 
3; 1739 275 EXT_FILE_ID: BBLOCKCFIDSC_LENGTH],  ! Extension file ID 
: 1740 376 LOCAL_HEADER:  ®BLOCK(512), ' Local area for file header 
3 1741 27 LAST _QINDOW: REF uae ' Last block in window fist 
: 106 $78 WINDOW: BBLOCKCWCB_S_HEADER + 255 * WCB_S_ENTRYJ, 
3 174 79 P: REF BBLOCK; ' Pointer to current window entry 
3 1744 580 
3 1745 281 — 
3: 1746 a6 ! Initialize. 
3 1747 ! 
3; 1748 4 -P_WINDOW = 0; 
3 1749 é 5 @ CURRENT_MTLCMTL_FILESIZE) = 0; 
: 1750 86 HEADER = .P_HEADER; 


| 16 
STAACP dalone ACP 14-96 -1984 00:42: AX-11 Bliss-32 V4.0-74 fF 
i] *500 TE_WINDOW = create a window block 12-8 08-1 384 90:32:83 YBACKUP SRE STAACP.B32; age 438 
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P=wW + 
IF .HEADERCFH2S$B STRUCLEV] 
AND .HEADERCFH2$@_SEG_NUM 

AND .HEADERLFH2$B_IDOFFSETI 
AND -HEADER FH2$L_HIGHWATER 
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BEGIN 
WINDOWCWCB_CUR_HWM] = -HEADERCEH $L_HIGHWATER]; 
WINDOWCWCB-SET-HWM] = .HEADERCFH2SL_HIGHWATERI: 


BEGIN 
WINDOWCWCB_CUR_HWM) 


-1; 
WINDOWCWCB_SET_HWM) 
END; 


-1; 
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Loop over this header and all of its extension headers. 

WHILE TRUE DO 

GLOBAL REGISTER 
COUNT= 


~“ 
~ 


. ! Retrieval pointer count 
LBN= - ! Retrieval pointer LBN 
wa 8: REF BBLOCK; ! Pointer to scan map area 
END_MAP; ! Pointer to end of used map area 
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LEAF 


! Get pointers to the map area and the end of the used portion 
of the map area. 


IF .HEADERCFH2$B_STRUCLEV] EQL 2 
THEN 
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BEGIN 
MAP_POINTER = .HEADER + .HEADERCFH2$B_MPOFFSET)*#2; 
END_MAP = .MAP_POINTER + .HEADERCFH2$B_MAP_INUSEJ®2; 
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ELSE 
BEGIN 
MAP_POINTER = .HEADER + .HEADE 
END-MAP = .MAP_POINTER + FM1$C_PO 
HAP-POINTER = <MAP_POINTER + FAISC 


re.) 
on 


1$B_MPOFFSETI#2; 
NTERS + .MAP_POINTERLFM1$B_INUSE)®2; 
POINTERS; 
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: Loop until entire map processed. 
UNTIL .MAP_POINTER GEQA .END_MAP DO 
BEGIN 


S 
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3; 7 
3% 
37 
; 1 
3; 1 
$3 
37 
3 7 
3; 7 
> 
3} 
3; 7 
3 7 
3; 7 
3; 7 
3 
3; 1 
; 7 
3; 7 
37 
3 1 
3; 7 
3 1 
3 7 
3 7 
3% 
3 7 
5 Y 
3 7 
g 7 
; 1 
| 
3 7 
3; 7 
sy 
3 1 
5 7 
3 7 
37 
3 7 
3 7 
37 
3; 7 
3 3 
31 
31 
3 7 
3 1 
g 1 
3; 1 
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16 
STAACP Standalone ACP 1b-Se -1984 00:42: AX-11 Bliss-32 V4.0-74 P 9 
v04-000 CREATE_WINDOW = create a window block 107300- 1382 1 582:88 EBACKUP. SRCISTAACP.B32; aad tt 
; 1808 44 4 
; 1308 45 4 ! Get count and LBN. 
3; 1810 rk 4 : 
: 131) 47 4 IF .HEADERCFH2$B_STRUCLEV] EQt 2 
3; 7 \¢ 48 4 THEN 
; 181 49 4 GET_MAP_POINTER() 
> 1814 50 4 ELSE 
>: 1815 51 5 BEGIN 
3 1816 3g 5 LEN = .MAP_POINTERCFM1$W_LOWLBN); 
; 1817 53 5 LBN<16,8> = .MAP_POINTERTFM1$B HI GHLBNI; 
3; 1818 54 2 COUNT = .MAP_POIRTERCFM1SB_COUNT]) + 1; 
3; 1819 55 MAP_POINTER = .MAP_POINTER 3 
; 1820 56 4 END; 
3; 1821 57 4 
; 18 ¢ 358 4 
3: 182 359 4 ' Count into total space. 
3 1824 360 4 ! 
3; 1825 361 4 CURRENT_MTILCMTL_FILESIZE] = .CURRENT_MTLCMTL_FILESIZE] + .COUNT; 
: 1826 3398 4 
3: 1827 363 4 
3; 1828 3364 4 ! Collapse with previous map pointer if contiguous with it and it is on 
$ sep 3365 4 ! same RVN == otherwise, generate new map pointer. 
3; 18 ° $309 4 ! 
3; 183 367 4 IF 
3 1834 3368 5 BEGIN 
3; 183 3369 5 IF .WINDOWCWCB_RVN] NEQ .RVN 
3: 1834 3370 5 THEN 
3; 1835 3371 5 FALSE 
3; 1836 $358 5 ELSE IF .WINDOWCWCB_SIZE] NEQ 0 
3: 1837 3373 5 
3; 1838 3374 5 -PCWCB_COUNT] + .PCWCB_LBN) EQL .LBN 
3: 1839 3375 5 
3; 1840 3376 5 FALSE 
3 1841 3377 5 
; | 3378 4 THEN 
3; 184 3379 4 PCWCB_COUNT] = .PCWCB_COUNT] + .COUNT 
> 1844 $e50 4 
3; 1845 381 5 
3 1846 $358 5 IF .WINDOWCLWCB_SIZE] GEQU 255 OR .WINDOWCWCB_RVN] NEQ .RVN 
3; 1847 3383 5 THE 
3; 1848 3384 6 BEGIN 
3: 1849 EH 6 : 
; 1850 386 6 ! Window block has overflowed. Move local window block to 
$ 133) 387 ° dynamic space and initialize for new block. 
3 1833 389 6 WINDOWCWCB_FREE) = 0; 
3; 1854 390 6 DYNWCB = GET_VM(WCB § HEADER + -WINDOWCWCB_SIZEJ*WCB_S_ENTRY); 
: 1855 391 6 CHSMOVE (WCB_S_HEADER * .WINDOWCWCB_SIZE) * WCB_S_ENTRY, WINDOW, .DYNWCB); 
; 1926 308 6 IF .LAST_WIRDOW NEQ 
3; 185 393 6 THEN LAST_WINDOWLWCB_LINK] = .DYNWCB; 
3; 1858 394 6 IF ..P_WINDOW EQL 0 THEN .P_WINDOW = .DYNWCB; 
3; 1859 395 6 WINDOW = .DYNWCB; 
3 1860 338 6 WINDOWLWCB_LINK] = 0; 
: 1861 97 6 WINDOWLWCB_ = 0; 
: 186¢ 98 6 WINDOWCWCB-SIZE) = 6; 
; 186 99 6 WINDOWCWCB-RVN) = .RVN; 
3: 1864 400 6 WINDOWC(WCB_FLAGS] = 0; 


K 1 
STAACP Standalone ACP 16-Sep-19 42: AX-11 Bliss-32 v4.0-7 
$04-500 CREATE_WINDOW = create a window block 15-Sep-1984 90:4 54: ‘63 BACKUP.SRCJSTAACP. 8350 
3; 1865 401 = WINDOW + WCB_S_HEADER = WCB_S_ENTRY; 
; es 106 END: 
3; 1867 40 
s 138 404 
: 1303 ret : Generate new pointer. 
3; 1871 40 uINDowcwcB SIZE) = -WINDOWCWCB_ SIZE] + 1; 
; 1876 408 .P + TRY 
; 187 409 P wca. COUNT” 3-F Count: 
3 1874 410 WCB_LBN) = “LAN; 
Pipa a 
3 1858 118 
; 1878 414 
; 1879 415 ' Allocate a new window at each header oe of This is necessary 
; 1880 213 ! in creating the window for a multi-header ODS-1 index file, since 
; 1881 4) ' the call below to read the extension header needs the first part 
: 1e86 418 ! of the window in place. The de-optimization otherwise caused 
; 188 419 ' is minimal. 
3 1884 420 : 
: 1885 421 W_SIZE = MAXU(.WINDOWCWCB S12], WINDOW SIZE); 
3: 1886 4 ¢ DYNWCB = GET _VM(W cB_ S HEADER w_Sl * WCB S_ENTRY); 
3 1887 4 DINDOUCUCE FREE] = (W SIZE - * window WCB_SI2ZE); 
3: 1888 424 CHSMOVE (WCB _S oy Or z -WINDOWLWCB_ SIZE E]“* WCB_S_ENTRY, WINDOW, .DYNWCB); 
3; 1889 425 if -LAST_WINDOW NEQ 
3; 1890 4 $ THEN LAST_WINDOWCWCB ab im = . DYNW CB; 
3; 1891 4 IF ..P_WI NDOUT EQL 0 THEN’. _WINDOW = .DYNWCB; 
; Hh 4 428 L TNDOW = . YN 3 
: 189 4 WINDOWCWCB_VBN] = 0 
> 1894 3430 WINDOWCWCB-SIZE) = 6 
> 1895 3431 WINDOW WCB-FLAGS) = 0; 
3: 1896 3038 = WINDOW" + WCB_S _HEADER - WCB_S_ENTRY; 
3: 1897 343 
; 1898 rt : ; 
3; 1899 435 ! If no extension header exists, finish up. 
; 1900 3436 } 
: 1901 tt IF .CURRENT_MTLCMTL_SEQ_DISK] 
3 1308 438 3 
; 190 3439 4 BEGIN 
3: 1904 440 4 IF .HEADERCFH2$B_STRUCLEV] EQL 2 
3; 1905 441 4 THEN 
3; 1906 mri 4 -HEADERCFH2SW x FIDONUM] EQL 0 
: 1907 43 4 AND .HEADERCFA2SO_EX_FIDRVN] EQL 0 
3; 1908 444 4 SE 
3; 1909 445 5 ecein 
3; 1910 446 5 MAP_POINTER = .HEADER + .HEADERCFH2$B_MPOFFSETIJ*2; 
3 1911 447 5 .MAP _POINTERCFM1 $W_ EX_FILNUM) EQL 0 
3 13\¢ 448 5 END 
3; 191 449 & END 
3: 1914 450 THEN 
; 1915 451 EXITLOOP; 
: 1916 136 
3 1917 45 
3 Hb 4) | 454 ' Get clean file number and RVN. 
3; 191 455 : 
3; 1920 rt IF .HEADERCFH2$B_STRUCLEV] EQL 2 
3; 1921 345 THEN 


Ar Sa ea eae ere 
STAACP Standalone ACP 1b-Se 1984 242: AX-11 Bliss-32 V4.0-74 P 1 
$04-500 CREATE_WINDOW = create a window block 1e-8ep-1 4 90:32:88 EBACKUP SRE ISTAACP B32; age 18) 
3; 19 ¢ 8 4 BEGIN 
3 19 459 4 EXT_FILE_IDCFIDS$W_N = ,HEADERCFH2$W_EX_F IDNUM]; 
3 1924 460 4 EXT-FILE-IDCFIDSW-SEQ] = .HEADER[FHOSW_EX_FIDSEQ]; 
; 1925 461 4 EXT-FILE_IDCFIDSW-RVN) = .HEADERCFHOSW_EX_F IDRVNJ; 
3 19 $ abe 4 END 
3; 19 463 3 ELSE 
3 1928 464 4 BEGIN 
: 1929 465 4 EXT_FILE_IDCFIDSW_NUM] = MAP _POINTERTEM] $W_EX_FILNUM]; 
: 1930 466 4 EXT-FILE-IDCFIDS$W_SEQ] = .MAP_POINTERLFM1$W_EX_FILSEQJ; 
: 19 1 46? 4 EXT-FILELID FIDSW-RVNJ = 1; 
; 1988 469 IF .EXT_FILE_IDCFIDS$B_RVN] EQL 0 THEN EXT_FILE_IDCFID$B_RVNJ = .RVN; 
3 1935 471 
3 bk fh: Set up header and RVN for next trip through Loop. 
: 1938 474 HEADER = LOCAL_HEADER; 
: 1939 475 RVN = .EXT_FILE_IDCFIO$B_RVNI; 
: 1942 aes ' Read ion file head If this fail 
b+ 4 ead extension e neader. this fails, 
3 1908 79 ' exit the loop. 
3 1944 480 ! 
: 1945 3481 STATUS = READ_HEADER(EXT_FILE_ID, .HEADER); 
3: 1946 z08¢ If NOT .STATUS 
3 1947 348 THEN 
3 1948 3484 4 BEGIN 
3 1949 3485 4 DELETE_WINDOW(. .P_WINDOW); 
3; 1950 3486 4 RETURN .STATUS; 
: 1951 3487 ; END; 
3 1938 3488 WINDOWLWCB_RVNJ = .RVN; 
3; 195 3489 2 END; 
3: 1954 3490 2 
3 1955 3491 2 
: 1336 349 § } Return success. 
: 1958 3494 2 SS$_NORMAL 
3; 1959 3495 1 END; 
-EXTRN GET_MAP_POINTER 
OFFC 00000 -ENTRY CREATE WINDOW. Save R2,R3,R4,R5,R6,R7,R8,- ; 3231 
SE F5D8 CE 9E 0000 MOvAB  -2600(SP), SP : 
0C BC D4 0000 CLRL aP_WINDOW : 3386 
50 00000000" EF DO QOODA MOVL URRENT_MTL, RO : 85 
20 AO 04 00011 CLRL 
58 04 AC DO 00014 MOVL P_HEADER, HEADER : 3386 
08 AC DD 00018 PUSHL ; 328 
7E 04 00018 CLRL LAST_WINDOW : 3288 
1¢ AE 04 0001D CLRL WINDOW ; 3289 
20 AE 10 AC bd 00 9 MOVL START _VBN, WINDOW+4 ; 3290 
4 AE 94 000 CLRB WINDOQ+ : 3291 
26 «AE 4 AE 98 600 8 MOVZBW RVN, WINDOW+10 : 3292 
59 28 «AE 9E 0002D MOVAB WINDOW+12, P > 3294 


2 5. 


STAACP Standalone ACP 16- 4 : Ax-11 Bi iss =32 V4.0-74 P 
YOt“b00 CREATE_WINDOW - create a window block 14- 30) ob 0: $2:83 BACKUP. SRC STAACP.832; age $3 
02 07 AB 91 00031 CMPB 7(HEADER), #2 : 3295 
1B 12 000 3 BNEQ 1 : . 
04 AB B5 000 TSTW  4(HEADER) + 3296 
16 12 OO03A BNEQ  ='1$ : 
28 6B 91 0003C CMPB (HEADER), #40 : 3297 
11 1F 0003F BLSSU‘'1$ : 
4C AB D3 9941 TSTL 76(HEADER) : 3298 
oc 1 044 BEQL 1$ : 
8 AE 4c AB DO 00046 MOVL 76(HEADER), WINDOW+12 : 3301 
C AE 4C AB DO 9006 MOVL #$ 76(HEADER), WINDOW+16 : 30¢ 
08 11 0005 BRB 2$ : 329 
8 AE 91 CE 9005 1$: MNEGL #1, WINDOW+12 : 06 
C AE 1 CE 000 MNEGL #1, WINDOW+16 : 330 
50 01 AB 9E 0005A 2S: OV 1 (HEADER), : 3329 
14 AE 04 0005E CLRL g0(SP) : 3326 
02 AB 91 00061 CMPB (HEADER), #2 : 
1A 12 00065 BNEQ 3$ : 
14 AE D6 00067 INCL 20(SP) : 
50 60 9A 0006A MOVZBL (RO), RO : 3329 
OC AE 6B40 3€ 0006D OVAW (HEADER)CROJ, 12(SP) : 
58 OC AE 00 00072 VL 12(SP) MAP_POINTER : 
50 3A AB 9A 00076 MOVZBL SS (HEADER), RO + 3330 
10 AE 6840 3E OO07A MOVAW (MAP_POINTER)£R03, END_MAP : 
19 11 0007F BRB 4$ : 3326 
50 60 9A 00081 3$: MOVZBL (RO), RO : 3334 
Oc AE 6B40 3E 00084 MOVAW (HEADER)CROJ, 12(SP) : 
58 OC AE dO 00089 MOVL 12(SP), MAP_POINTER : 
50 08 AS 9A 0008D MOVZBL 8(MAP_POINTER), RO : 3335 
10 AE OA A840 3€ 00091 MOVAW 10(MAP POINTERS (RO, END_MAP : 
58 0A CO 00097 ADDL2 #10, MAP_POINTER : 3336 
10 AE 58 D1 OO09A 4$: CMPL MAP’ POINTER. END_MAP : 3342 
03 1F O009E BLSSU‘5$ : 
00A4 31 OO0A0 BRW 15$ : 
14 AE €9 OO0A3 5$ BLBC 20(SP), 6$ 3 3347 
000000006 00 16 000A7 JSB GET_MAP_POINTER : 3349 
OF 11 OOOAD BRB 7$ ~ : 
57 02 AB 3C OOOAF 6$: MOVZWL 2(MAP_POINTER), LBN : 3352 
57 08 10 88 FO 00083 INSV (MAP_POINTER) + fic. #8, LBN > 335 
56 FD A8 9A 00088 MOVZBL -3(MAP_ prurt oe COUNT : 3354 
56 06 000BC INCL COUNT : 
50 00000000" EF DO OOOBE 7S: MOVL CURRENT MTL : 3361 
20 AO 56 CcO 000C ADDL2 COUNT, 32¢ K6y® ; 
51 D4 00009 CLRL : 3369 
06 AE 26 =A 08 99 FD 900¢ CMP27V #0, #8, WINDOW+10, RVN : 
4 00D BEQL 8$ : 
51 06 00004 INCL R1 : 
14 11 00006 BRB 10$ : 
24 «AE 93 90008 8$: TSTB = WINDOW+8 : 3372 
OF 13 00008 BEQL 1 : 
50 69 06 ad C1 900 ADDL3 4(P), (P), RO : 3374 
57 50 D1 00 CMPL RO, LBN : 
05 13 Oo BNEG 108 : 
69 56 CO O00E7 ADDL2 COUNT, (P) : 3379 
AE 11 QOEA 9$: BRB ; 
FF oS 24 Ag 91 oe 10$: CMPB = WINDOW*+8, #255 : 3382 
0 le OO0F 1 BGEQU§ 11$ ; 
46 51 £9 000F3 BLBC = RI, :14$ : 


' Reo | 

STAACP Standalone ACP 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 Page 63) $ 

y04-500 CREATE_WINDOW = create a window block 12-80 8-1 he 90:42:88 YBACKUP. SRe STAACP.B32; ° (18) | \ 
| 

5 AE 94 00076 118:  CLRB  WINDOW+9 3 3389) : 

$2 Ar 3 fs MOVZBL WINDOW+8, R2 : 3350, : 

0 C4 O00F MULL2 #8, R : | : 

4 €0 001 ADDL2 6 #20, -R2 : ; 

é DD 001 PUSHL R : ; 

000000996 00 FB 001 CALLS #1, GET_VM : : 

08 AE 9 p 1 ¢ MOVL RQ, DYNOCB : | : 

08 BE iC AE § 11 MOVC3 R2. WINDOW, @DYNWCB : 3391. : 

6 p O116 StL AST_WINDOW : 3392 | : 

00 BE 08 AE DO OO11A MOVL § DYNWCB, @LAST_WINDOW : 3393 ; 

oc Bf D H0135 12s: TST e WINDOW ; 3394 ; 

0c BC 08 AE 00 00124 MOVL DYNWCB. @P_WINDOW : : 

6E 08 AE D0 00129 138:  MOVL DYNWCB, LAST_WINDOW + 3395 : 

1¢ AE 7C Bat D CLRQ WINDOW 3 3396 : 

$e AE 94 001 CLRB WINDOW+8 : 3398 | 

26 «AE 4 AE 98 001 MOVZBW RVN, WINDOW+10 : 3399 : 

59 e8 AE 9E 91 6 MOVAB WINDOW+i2, P ; 3401 ; 

4 AE 96 0013C 148: INCB = WINDOW+8 + 3407 : 

59 08 60 00138 ADDL2 #8, P : 3408 ; 

69 56 7D O42 MOVG COUNT, (P) ; 3409) F 

A311 0014 BRB : 3342, : 

50 24 AE 9A 00147 15$:  MOVZBL WINDOW+8, RO : 3421) : 

16 AC 50 01 00148 CMPL RO, WINDOW_SIZE : | : 

04 1€ OO14F BGEQU 1 : : 

50 14 AC dO 00151 MOVL § WINDOW_SIZE, RO : 3 

SA 50 00 00155 16$:  MOVL RO, W_SIZE : : 

7E SA 03 78 00158 ASHL #3. W°SIZE, =(SP) + 3422) ; 

6E 14 ¢cO 0015C © ADDL2 #26, TSP) : ; 

000000006 00 01 FB 0015F CALLS #1, GET_VM ; : 

08 AE 50 DO 00166 MOVL RO, DYNQCB 3 3 

25. AE SA 24 AE 83 0016A SUBB3 WINDOW+8, W_SIZE, WINDOW+9 > 3423, 3 

50 4 AE 9A 00170 MOVZBL WINDOW+8, RO 3 3424) 3 

50 08 C4 00174 MULL2 #8, RO ; | : 

50 14 C¢0 00177 ADDL2 #26, RO F ; 

08 BE 10 AE 50 28 0017A MOVCS RO, WINDOW, @DYNWCB : : 

6E 05 00180 TSTL  LAST_WINDOW + 3425 | : 

05 13 00182 BEQL i? ; : 

00 BE 08 AE DO 00184 MOVL § DYNWCB, @LAST_WINDOW + 3426 | : 

OC BC 05 00189 17$: STL  @P_WinbdOowW : 3427) : 

05 6 018C BNEQ 18$ 3 j 

0c BC 08 AE D 00186 MOVL §DYNWCB, @P_WINDOW ; | ; 

6E 8 AE 00 the 18$: MOVL DYNWCB, LAST_WINDOW : 3428 | ; 

0 AE 04 00197 CLRL WINDOW+4 : 3429) i 

4 AE 94 0019 CLRB = WINDOW+8 : 3430) ; 

37 AE 94 0019D CLRB = WINDOW+11 : 3431 | i 

59 8 AE 4 01A0 V WINDOW+12 : 34 ¢ | : 

50 00000000" EF 00 O01A4 MOVL CURRENT NFL, RO : 3437 | i 

6B 1 AO €8 OO1AB BLBS  49(RO),~26$ : | i 

OA 14 AE €9 OIE BLBC 20( P); 19$ : 3440 ‘ 

OE AB 85 00183 TSTW © 14(HEADER) > 3442 | i 

OE if 0186 BNEQ eis ; : 

12 Ag 8 O18 TSTW (HEADER) ; 3443 | 

07 11 0016B BRB é $ ; i 

58 oc AE 00 001BD 19$:  MOVL (SP), MAP_POINTER > 3446 | 

2 As B5 001C1 TSTW  2(MAP_POINTER) > 3447 
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dD 1 | 
Standalone ACP 16-Sep-1984 00:42: AX-11 Bliss-32 v4.0-74 Page 65 
DELETE _WINDOW = delete a window block 1e-Sep-19 4 1:38:63 EBACKUP SRE STAACP.B32; . (28 
rp 1 ZSBTTL "DELETE_WINDOW = delete a window block’ i 
rt : ROUTINE DELETE_WINDOW (WINDOW): NOVALUE= : 
499 1 !e4 : 
90 1 ‘ 
; 1 1°! FUNCTIONAL DESCRIPTION: 
8 : This routine deletes a window block (or blocks). i 
Ht 1 i INPUT PARAMETERS: | 
rt ; } WINDOW - Pointer to window block. i 
507 1 | IMPLICIT INPUTS: | : 
06 1! NONE i 
509 1! i 
510 1 ! OUTPUT PARAMET®RS: { 
213 : NONE i 
218 1 | IMPLICIT OUTPUTS: i 
a3 : NONE | : 
516 1 i ROUTINE VALUE: | 
ae yi —_ | 
519 1 ' SIDE EFFECTS: ; 
520 1! Window blocks released. | ; 
35 1 i | 
258 hs | : 
ass 3 sip a(t 
5 6 WINDOW: REF BBLOCK; ! Pointer to window block ; 
2§ LOCAL 3 
535 REF BBLOCK; ! Pointer to window block : 
530 ’ 
531 W = .WINDOW; 
236 WHILE .W NEQ 0 DO 
5 BEGIN 
534 LOCAL , | 
nH NEXT: REF BBLOCK; ! Pointer to next window block 
53 NEXT = .WCWCB_LINK); ! Point to next block 
538 FREE_VM( ' Free current block 
223 OCB _S_HEADER + (,WOIWCB_SIZE] + .WCWCB_FREEJ) * WCB_S_ENTRY, 
541 W = .NEXT; ! Advance to next block 
285 2 END; | 
543 1 END; 


000C 00000 DELETE_WINDOW: 
4 D Save R2,R3 : He 

23) 

532 


-WOR 
52 04 AC 00 00002 MOVL WINDOW, W : 
25 3 00006 1$: BEQL es : 


V0s~000 


3; Routine Size: 


bee Efe of WIN sou = delete a ae block 1-56 ~36071 387 99:22:63 axchip satis tiate ‘B3 phe 

oo a de 

0 08 : BR MOVZBL Btw), RO 

1 Ad 9A 00011 MOVZBL (Ww); RI 
3 : 13 ADDL2 R1, RO is 
a E fi C oi ADDL? ; 6 ie 
000000006 09 08 FB O01F CALLS #2, FREE _VM 
dB 11 0098 BRB i$ ° 
04 00028 2$: RET 


44 bytes, Routine Base: CODE + O9EC 


Bete Se Ge Ge Ge Fe Se Se Fe Be 


Be Se Se Se Se Se Se Be Se Se Se Se Se Se Be Se Se Se Se Se Ge Ge Ge Se Fe Se Ge Ge Ge Se Se Se Ge Ge Ge Se Se Ge Se Se Se Ge Se Se Se Sse Se Se Geese Se Se SeSseseses 


— eee ee 


nw | 
~ 
a | 
| 
v 


i] 
i 
i pointer, only allocate one. However, if the window block is empty. cranetere 
: it into a black hole. 
i 


i wet -WCWCB_BLACKHOLE) AND .WCWCB_SIZE] NEQ 0 


BEGIN 

ty = GET_VM(WCB_S_ENTRY + WCB_S_HEADER); 

wCWCB_LINK) = .WINDOW; 

w= .QINDOW; 
sae = 0; | 


F 1 | 
Standalone ACP 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 Pp 7 
ADD_BLACKHOLE_MAP = add block hole pointer to w 12286871382 99:82:63 YBACKUP.SRe STAACP B30e4 age oft 
010 44 1 ZSBTTL ‘ADD_BLACKHOLE_MAP = add block hole pointer to window’ 
ot $2 } ROUTINE ADD_BLACKHOLE_MAP (P_WINDOW,COUNT): NOVALUE= 
oe oe ie 
015 rk 1 ' FUNCTIONAL DESCRIPTION: 
oie 01! This routine adds a black hole pointer to the specified window. 
2 1 ! Write 1/0's that map to a black hole pointer are discarded. | 
O18 § : 1 | INPUT PARAMETERS: 
020 554 1! P_WINDOW - Pointer to window block. 
: 1 22? } : = Count of blocks. | 
0 5 225 1 | IMPLICIT INPUTS: 
Poti 
0 6 560 1 | OUTPUT PARAMETERS: 
et | tie 
069 268 | i impLicit outputs: | 
030 564 1! NONE 
031 565 1! 
Os 566 1 ! ROUTINE VALUE: 
203 44 : NONE . 
H | 
Oa 569 1 ! SIDE EFFECTS: 
sos 570 1! NONE 
037 571 1! 
038 a7¢ 1 !<- 
039 573 1 
040 574 BEGIN | 
041 575 LOCAL 
ah 576 We REF BBLOCK, ! Local pointer to window segment 
Sez 3378 WINDOW: REF BBLOCK; ! Address of new window allocated | 
045 57 
046 380 ! Find the last window block. 
048 38¢ W = .P_WINDOW; 
et 38? UNTIL .WCWCB_LINK] EQL 0 DO W = .WCWCB_LINK]; 
051 585 
4a 4 5 If this window block already contains a pointer but is not a black hole 
5 aH allocate a new one. Since there is never a need for more than one mappin 
589 
5 
5 
5 
5 
5 
5 
5 
064 W wee VEN, = 0; 

065 WEWCB"RVN) = 0; 

066 w(WCB- FREE) = 7; 


a 


STAACP Standalone ACP 
3 7 601 ute: SIZE] = 
; bo8 § WCB_FLAGS] - 6; 
; $90 604 
3; 2071 605 
3 Ors 6 : ! If no pointer exists 
: 4 6 ! pointer in a black hole 
3; 2074 608 i 
3; 2075 609 if -WCWCB_SIZE] EQL 0 
3 B76 610 THEN 
3; 207 611 BEGIN 
3 OS olg WLWCB_BLACKHOLE] = 
: 61 ¥) wee pi zed =1; 
; 2080 614 WIWCB FREE) = .wCWCB 
3; 2081 615 pe. ockt .¥ + WCB_S_H 
3 Ose oig BBLOCKL.W + WCB_S"HEA 
3; 208 61 ND; 
3; 2084 618 
3; 2085 619 
3; 2086 620 : Finally add the block 
3; 2087 621 
; 2088 6 ¢ geocet. = + WCB_S_HEADE 
3; 2089 6 CKC.wW + QCB_S 
; 2090 624 Me 

52 

52 

20 


000000006 09 


09 = A2 
OB A 
08 A 
50 
14 = A2 


ADD_BLACKHOLE_MAP = add block hole pointer to w 1$-sep-1984 d 99: $f: 3 


et, initialize it. 
window block. 


REE) - 
BER wCB_ Veount T] 
ER, WCB-LBNJ = 


s to the pointer. 


R, WCB_COUNT) = 
“HEADER? WCB_ COUNT) 


0004 00000 
04 ac 00 00002 
62 d 00006 
05 13 00008 
o¢ dO OR OBA 
eee: 
08 AS 53 0013 
18 1 a 
1¢ Dd 0001 
1 FB QOO1A 
3 09 0021 
0 p 00 
a 
se hs 4 000 9 
08 A2 9 8 
Hie & 
‘ : 
9 A2 9 4 
2 ese 
6 C Bie 
oe Ke 56 ont 


0: 


AX=11 BLi 0-74 
¢ PB aoe 


BACKUP.SRC i aace 


There can be no more than one 


0; 


+ COUNT; 


settee oat 
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; Routine Size: 79 bytes, ‘inate Base: CODE + 0A18 
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1 
| STAACP Standalone ACP 1b-se 1984 00:42: AX-11 Bliss-32 V4.0-74 P 70 | 
ADD_WINDOW_MAP = add pointers to a window 122 $28-4 982 99:32:53 BACKUP’ SREISTAACP 03244 a9e ot 
ZSBTTL *ADD_WINDOW_MAP = add pointers to a window’ | 
ROUTINE ADD_WINDOW_MAP (P_WINDOW,RVN,COUNT,LBN): NOVALUE= 


3 


ee 


: 
FUNCTIONAL DESCRIPTION: 
This routine adds a window pointer mapping the specified blocks 

} 


S333 


to the specified window. If the window is full or describes a 
different RVN, an extension of the same size is added. 


INPUT PARAMETERS: 
P_ WINDOW 


WNC OONAUVUESWN “OOONOum 


i 
i 
i 
i 
i 
i 
i IND - Pointer to window block. 
! ON - Relative volume number of blocks to be added. | 
: COUNT - Count of blocks to be added. | 
ft : LBN - Starting LBN of blocks. 
! IMPLICIT INPUTS: 
: NONE 
644 ! OUTPUT PARAMETERS: 
645 ! NONE 
78 ! 
64 ! IMPLICIT OUTPUTS: 
48 ‘ NONE 
649 ! 
650 ! ROUTINE VALUE: 
651 ! NONE 
O26 ! 
65 ! SIDE EFFECTS: 
654 ‘ NONE 
655 ! 
56 leo 
657 
658 BEGIN 
659 LOCAL 
60 W: REF BBLOCK, ' Local pointer to window segment 
661 P: REF BBLOCK, ! Pointer to window map entry 
66 SIZE, ' Size of new segment to allocate 
re WINDOW: REF BBLOCK; ! Address of new window allocated 


Find the Last segment of the current window. 


w= -P_WINDOW: 
UNTIL TWLWCB_LINK] EQL 0 0O W = .WCWCB_LINK); 


ee ee ee ce ce ee ce ee ce ce ee ed ce ee ee et ce ee a ee ee ee ee ce ee ce ec cel ec ee ee ee ee eB ed ed ed ed 


SLE DREA LE SSELEAFENSSSSVEORON LS SHVanRanV=SSsusenrwvore 


1 
§ ! Jf this segment has been used and if it describes blocks on a different 
a : RVN or if this segment is full, allocate a new one. 
5 
$ (.WCWCB size? NEQ 0 AND .WCWCB_RVN] NEQ .RVN) OR 
-WCWCB_FREE) EQL 0 
THEN 
BEGIN 
680 SIZE = MAXU(.WCWCB_SIZEJ, 10); 
1 WINDOW = GET_VM(.STZE * WCB_S_ENTRY + WCB_S_HEADER); 


+--+ + + !OOC.;}.;_I CMO}MmIL 


~ 
> 
aaa 
ge 


1 
OU_AAP - add pointers to a window 1b-Se0-1984 90:82:53 YeXcKuP’ Se STAALB O30, 


$ 
v04 
's 2149 wCWCB_LINK] = .WINDOW; 
's 2150 we, INDOW: 
> 2151 WCWCB_LINK) = 0; 
: 2 : WEWCB-VBNJ_= 0; 
: 21 6 W weB“SiZE) 6 
> 2154 WEWCB-FREEJ = .SIZE; 
: 2155 WCWCB-FLAGS) = 0; 
: 21 : END; 
: $28 
3; 2159 ! Finally add the pointer. No attempt is made at agglomeration since we 
3 199 037 will never allocate an area that could be contiguous. 
3 16¢ P = .W + WCB_S_HEADER + ,WCWCB_SIZEJ*WCB_S_ENTRY; 
> 216 6 WCWCB_SIZEJ = <WCWCB_SIZE) + 1: 
: 2164 WEWCB-FREEJ = .WCWCB-FREEJ = 1; 
: 2165 WEWCB-RVNJ = .RVN; 
> 2166 699 2 PLWCB-COUNT] = .COUNT; 
: 2167 PCWCB-LBNJ = .LBN; 
: 2168 END; 
000C 00000 ADD_WINDOW_MAP: 
.WORD Save R2,R3 
52 04 AC DO 00002 MOVL P_WINDOW, 
62 D5 00006 1$: TSTL (Q) 
05 13 00008 BEQL «= 2$ 
52 62 DO 0000A MOVL (Ww), W 
f? 11 90000 BRB 1$ 
08 A2 95 OO000F 28 TSTB g(w) 
09 13 00012 BEQL s 
08 Ac OA A2 08 00 ED 00014 CMP2v #0, #8, 10(W), RVN 
05 te 00018 NEQ 4$ 
09 A2 95 0001D 3$ TSTB 9.) 
2F 12 00020 NEQ 6s 
50 08 A2 9A 00022 48 MOVZBL 8(W), RO 
OA 50 91 00026 CMPBsRO, #10 
0 i 0029 BGEQU 5$ 
50 OA 00 00028 OVL #10, RO 
5 30 b0 OO2E S$: MOVL RO, SIZE 
7E 53 0 8 99 1 ASHL #3, SIZE, -(SP) 
6E 14 CO 00035 ADDL2 #26, (SPS 
000000006 00 91 FB CALLS #1, GET_VM 
$2 0 D F MOVL WINDOW,” (W) 
5 b0 9 4 MOVL WINDOW, W 
62 7¢ 04 CLROO WW 
08 A2 94 0004 CLRB sw) 
09 = A2 53 90 OO04A MOVB Size 9(w) 
0B Ag 34 0004 CLRB (w5 
50 8 A 9A 6$ MOVZBL 8(W), RO 
| 0 14 A260 7E MOVAQ 20(WSCROI, P 
: A 98 A INCB (Ww) 
Ao 9 50 DECB (Ww) 
OA A2 8 AC 90 00060 MOVB  RVN, 10(W) 
i 
| 


| 
} 


3 Routine Size: 


a 


Standalone ACP 
ADD_WINDOW_MAP = add pointers to a window 


60 0c AC 7D 00065 MOVQ 
04 00069 RE 


106 bytes, Routine Base: CODE + 0A67 


kK 1 
16-Sep-1984 00:4 
Vensepa1984 1153 
V 
T 


2:29 AX-11 Bliss-32 V4.0-74 
2:83 t $sta ¢ 


BACKUP.SRCISTAACP.B32; 
COUNT, (P) 


Pa 72 
9° 23) 


3; 3699 
; 3701 


SRRAVLS SSIS ARAL OOBIOAP WA SSB 


PRIDDIS IID et ae i i i ed ed ed ed od od 


POPORPORONOPONOPONOPong 


oo 
on 


; Routine Size: 


a 3 
Be Ge Se Ge Ge Se Ge Se Ge Ss Ge Ge Se Gs Se Se Ge Ge Se Ge Ge Se Se Ge Se Ge Se Ge Ss Gs Ge Ge Se Se Se Se Setee 
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1 
Standalone ACP 18-56 1984 00:42: AX-11 Bliss-32 V4.0-74 
QIO_AST = 1/0 completion AST routine 1 730071 38s 99:82:88 (BACKUP. SRe STAACP.B32; 
§ ZSBTTL ‘QIO_AST = 1/0 completion AST routine’ 
ROUTINE QIO_AST (VCB): NOVALUE= 


wu 


tee 
! 


! FUNCTIONAL DESCRIPTION: 

This routine is a completion AST routine for the $Q10 service in 
routine R_W_VIRTUAL. It decreases the pending 1/0 count for the 
volume, and if it reaches zero, sets event flag 31. 


INPUT PARAMETERS: 
V - Pointer to VCB. 
Remaining standard AST parameters (not used). 


pp ee i ee i i ond ad 


1 
1 
1 
1 
1 
1 
. 39 
09 1! 
10 7! 
2 4 i 
1g 1! 
141! 
+a o 
18 1 ! IMPLICIT INPUTS: 
\3 : NONE 
19 1 ! OUTPUT PARAMETERS: 
y : NOWE 
7 ; 1 ! IMPLICIT OUTPUTS: 
7 74 NONE 
724 1! 
725 1 ! ROUTINE VALUE: 
726 1! NONE 
tifa 8 
728 1 ! SIDE EFFECTS: 
4 ’ : Pending 1/0 count in VCB decreased. EFN 31 may be set. 
731 1 f-- 
7 ¢ 1 
7 BEGIN 
734 MAP 
735 vcB: REF BBLOCK; 
Hs 
738 VCBCVCB_IOCOUNT] = .VCBCVCB_IOCOUNT) = 1; 
I ; IF VeBLVCB_1OCOUNT3 LEQ 0 THEN SSETEF(EFN=31); 


-EXTRN SYSSSETEF 


0000 00000 QI0_AST:.WORD Save nothing 
50 04 ac D9 0002 MOVL VCB, RO 
0A AO : 6 06 DECW 10(RO) 
09 14 BGTR 
1F DD 9008 PUSHL #31 
000000006 00 01 FB 90D CALLS #1, SYSSSETEF 
04 00014 1$: RET 


21 bytes, Routine Base: CODE + OAD1 


| 
4 1 
STAACP Standalone ACP 16-Sep-1984 00: AX-11 Bliss-32 V4.0-74 Page 7% | 
-¥ VIRTUAL = perform read and write virtua -Sep- KUP. RACE (24). 
¥04-600 R.W_VIRTUA f d and write virtuat easeb-tope $9i8e:63 — FaXchbe Odes Peale 83507 9° 24) | 
13 2210 741 1 ZSBITL ‘R_W_VIRTUAL = perform read and write virtual’ 
: 13 rg ! ROUTINE R-WUVIRTUAL (EFN,CHAN,FUNC, 1OSB,ASTADR,ASTPRM,P1,P2,P3)= 
‘5 13 744 1 144 
is 14 745 #1 i 
: 2215 4 1 § FUNCTIONAL DESCRIPTION: 
3 1$ 747 1: This routine maps a read or write virtual block Q10 to the appropriate 
: + Ue : read or write logical block Q10's using the current window. 
: 2219 750 1! INPUT PARAMETERS: 
: 0 751 1: As for $Q10(W) service. 
3 1 f ¢ ! Assunpt ions: P2 is a multiple of 512, and P2 < 65536 
3 : 754 1 IMPLICIT INPUTS: 
; 4 755 1 CURRENT _MTL - Pointer to MTL for selected volume set. 
3 5 738 : : CURRENT_WCB - Pointer to WCB for current file. 
3 $ Pee 1 ! OUTPUT PARAMETERS: | 
3 8 759 1! NONE 
3 9 760 1! 
s 761 1 =! IMPLICIT OUTPUTS: 
3 1 76 1! NONE 
3 3 765 1! 
3: 22 764 1 ! ROUTINE VALUE: 
3; 22 765 1! SS$_NORMAL if execution is successful or SS$_ENDOFFILE if the 
3 336 766 ! specified virtual block(s) are not completely within the file. 
3 § 768 1°! SIDE EFFECTS: 
3 $35 769 1! NONE 
3 9 770 1! 
3: 2240 771 «1 Se= 
: 41 772 «21 
: $§ 77 BEGIN 
: 224 774 
: 22646 775 MAP 
3 See as 10SB8 REF VECTOR C,WORD]; 
: 2267 77 LOCAL 
: 48 77 CHANNEL, ' Channel number 
3: 2249 780 : REF BBLOCK, ! Pointer to window block 
3: 2250 781 P: REF BBLOCK, ! Pointer to window block entry 
3 51 78 ! VBN mapped so far 
3 6 78 FUNC: BBLOCK (4), ' Logical function code 
3 s : LP1, LP2, LP3; ! Local copies of Pl, P2, P3 | 
> 2255 7 
: $ 7 ! Pick up local copies 7 ft. and °; so that they can advance as the 
: 3 o38 i transfer is done. Note that Pes is maintained as a block count instead 
3 38 z : of as a byte count. Get the appropriate logical function code. | 
: 2260 791 ipt = .P1; 
3 61 79 LP2 = .P2 / 512; | 
: $6 79 LPS = .P3; | 
; 63 3794 LFUNC = .FUNC = IO$_READVBLK + 10$_READLBLK; | 
3 2265 
: 2266 3797 ! The virtual block number must not be 0, and there must be a window. 
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aad 
| 
| 
| 
| 
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yy" 
> 
ge 
mw 
o 
£o 
3 
<a 


eet Pe 


QSAR 


SRESSE 


irs) ina teeta taeda tieatiaatity ea Rin tain tellng etn anrentia ee eeeitelen tn he bbe bans teteins tote tht tate trle teeth wetininds ttm teet ete 5 
SSSsss VSVSRSROSAS VIVA 
G9 Cd GO OS Od Go OD Cd Cd Gd C9 OS Od OD OD Od Cd 09 OD Od Od OD OD Cd G9 OD Od C9 OS Cd 09 09 CD OD CO CO CD CO CD OD C8 NI~V 


Se 
WA.A.ANI AAI NIAID IPI PUDINININPININIDS 2 OOOO OOOO 


REP RA 


NONE WN 20 OD NA UNE WIN OO ONAULS WN $$ O DONOULS WN COO 


FREESE 


WN —ODO@OnNO UF wt oO $4 “45-4 


ROPORORY ot = tO to 


000000000 
MONT 
wt —O O00 


N 1 
ne ACP 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 
UAL = perform read and write virtual 122808=1 384 90:82:88 BACKUP.SRC STAACP :o3064 
| 
: LP3 EQL 0 OR .CURRENT_WCB EQL 0 

RETURN SSS$_ENDOFFILE; 
! If this is a write, check the file's highwater mark. If the write 
! starts beyond it, back up the VBN to the highwater mark. The mapping 


1 
i 
' code below will then execute erase functions until we reach the 
: start of the write. 


F. 
HEN 


IF .FUNC<0,6> EQL 10$_WRITEVBLK 
THEN 


BEGIN 
IF .LP3 GTRU .CURRENT WCBCWCB CUR HUAI 
> Ma » CURRENT_MTLCATL_NOHWA 


BEGIN 
LFUNC = IJOS_WRITELBLK OR IOSM_ERASE; 
LP1 = UPLIT ; 

LPe = .LP3 = .CURRENT WCBCWCB CUR HUAI; 
te, = ,CURRENT_WCBCWCB_CUR_HWA 


! If a read goes past the file's highwater mark (and highwater marking 
! is enforced), stop it at that point and fill the rest of the buffer 
; with zeroes. 


IF .LP2 + .LP3 GTRU ,CURRENT WCBCWCB_CUR_HWM] 
— «CURRENT _MTLCMTL_NOHOM) 


BEGIN 
BES = MAX (.CURRENT_WCBCWCB_CUR_HWM] = .L 
CHSFILL (0, .P2 = .CP2*512,°.P1°+ .LP2*51 
END; 
: Loop over the window blocks. 
W = .CURRENT WCB; 
N = Otuce VON. 
WHILE .W NEQ 0 00 
P = .W + WCB_S_HEADER; 


P3, 0); 
2); 


! Loop over the entries within the window block. Maintain the 
; byte count in IOSB in case we exit. 


DECR I FROM .WLWCB_SIZE) TO 1 DO 
BEGIN 


! Since an erase may end and a write begin in the same map pointer, 


Page 7 
. (24 


~w 


<v | 


STAACP Standalone ACP 16-s¢ Sep-1984 00: AX-11 Bliss-32 V 5-o. -74 Page 76 

v0e-000 R_W_VIRTUAL = perform read and write virtual ~Sep-1984 9 8g 83 BACKUP. SRC STAACP -B32; 7 (24) | 

; $ 835 ‘ : Loop on the map pointer until it does no good. | 
5 2326 837 4 WHILE TRUE DO | 
3 ? $28 BEGIN 

3 5 sey } If this entry maps the first VBN of the transfer, do it. 

5 1 Ha) IF .LP3 GEQU .N AND .LP3 LSSU .N + .PCWCB_COUNT] 

; ¢ 86 THEN 

; 864 6 BEGIN 

3 ¢ Bee 6 UM, ous 

3 868 6 YP2, 

3; 2338 869 6 XPS; 
3 ] 870 6 

3 0 871 6 ! Compute LBN and byte count for this segment and update the 
; 1 ore 6 ! highwater mark. Then do the 1/0 function appropriate to the 
3 ¢ 873 6 ' circumstances. 
3; 234 874 6 i 

: 4 875 6 XP3 = .PCWCB "a or es 

3 2345 876 é XP2 = MINU(, Pe, countd - LP3 + 
; 308 877 6 CURRENT_WCBLWCB Ne MAXU (. CURRENT Nuéecuce. CUR_HWM], .LP3 + .XP2); 
: 878 6 IF .LP2°EQL ntp2” UR -LP1 EQL .P1 

3 8 879 6 THEN 

: 9 880 7 BEGIN 

3; 2350 881 7 IF .WCWCB_BLACKHOLEJ 

3; 2351 882 7 THEN 
3 2g 883 8 BEGIN | 
3 5 884 8 SSETEF CEFN=.EFN 
; 54 885 8 IF .10SB NEG 2. Tien I10SBL0] = SS$_NORMAL; 
3; 2355 3886 8 RETURN SS$_N 
3: 2356 3887 8 END 

3 2357 888 7 ELSE 

3; 2358 889 8 BEGIN 

3; 2359 3890 8 LOCAL 
5 300 +4 4 vCcB: REF BBLOCK; 
3 $08 5893 8 vcB = » CURRENT MTILCMTL_VCB(.WCWCB RVNJ-. CURRENT_MTLCMTL_RVN_BASE)) 1]; 
3 236 94 : HANNEL suiTth. VOLUME (.WCWCB_RVNJ); 
3 2364 P 3895 STATUS = $Q10 
3 2365 P 3896 Yonc= LtON 

3 P 3897 CHAN=. CHANNEL, 

3 2367 P 43 10SB=.10SB, 

3 P 389 FN=.EFN 

3 2369 P 3900 ASTADR=Q{0_AST, 

3; 2370 P 3901 i? wee ” 

: 2371 P 390 

; iC; P 390 Pe-X “tes $512, 

3: 237 904 

3 2374 905 

3 2375 90 , , 

3 38 rita Increment the pending 1/0 count for this volume. 

: 378 909 if sSTATYS Mh 9g VCBCVCB_IOCOUNT) = .VCBCVCB_IOCOUNT] + 1; 

330 BH Splitter 
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tandalone ACP 156 1984 00:42: AX-11 Bliss-32 V4.0-742 P 77 
-# VIRTUAL = perform read and write virtual 102800- 1386 90:92:88 EBACKUP. SRE STAACP.B32;1 008 28) | 
9 END 
2 ELSE 
9 IF NOT .WCWCB_BLACKHOLE) 
9 THEN 
9 BEGIN 

LOCAL 


L_IOSB: VECTORE4 ,WORD); 
CHANNEL = SWITCH_VOLUME(.WCWCB_RVN)); 
! ALL erases get done here. Since the area to be | 
! erased is potentially huge, repeat the 1/0's 
until the count is run out. 


YP2 = .XP2; 
DO 
BEGIN 
STATUS = $Q10W( 
10SB=L_10SB, 


Pl=.LPI, 
. =MINU (.YP2, 127)*512, 


MEUM $0 ODNAUS WN" OOONOUS wr 


INN AIA POPIPONONONONOPUN) 3 2 


vuvvvU 
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36 =.XP YF | 
7 IF .STATUS THEN STATUS = .L_IOSB[0]; 
8 IF NOT .STATUS 
9 THEN RETURN .STATUS; 
40 YP2 = .YP2 = 127; 
410 41 XP35 = .XP3 + 127; 
411 og END 
tig 94 UNTIL .YP2 LEQ 0; | 
41 Secs : 
414 945 END; 
415 3946 LP2 = .LP2 = .xXP2; 
416 947 LP3 = .LP3 + .XP2; 
417 948 | 
418 49 : If we are erasing, check if we have arrived at the start | 
419 950 ! of the actual transfer. If so, set the parameters up 
; 92 up for the transfer. 
4 § 338 IF .LFUNCCIOSV_ERASE) 
4 954 AND .LP2 LEQ 0 
424 955 
425 956 BEGIN 
426 957 LFUNC = ,FUNC = IO$_READVBLK + IO$_READLBLK; 
427 958 LP1 = .P1; 
428 959 Ure = PS / $12; 
429 960 LP5 = .P3; 
" : sd END 
§ 368 Maintain byte count in I10SB and check for completion. 
434 36 ELSE CIN 
4 4] LP1 = .LP1 + .xXP2*512; 
43 968 IF .10SB NEQ 0 
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Standalone ACP ep 242: AX-11 Bliss-32 V4.0-74 
R.W_VIRTUAL = perform read and write virtual 1223 Sep 71382 99 754: 63 BACKUP. Src STAACP.B32; 
7 THEN 
396 BEGIN 
971 1OsBb03 = SS$_NORMAL; 
ars May = ,P2-= .LP #512; 
974 7 IF Epo Lea 0 
975 7 THEN RETURN SS$_NORMAL; 
3r8 7 EXITLOOP; 
977 6 END; 
978 END 
97 ELSE 
44 EXITLOOP; 
982 4 ND; $ f 
388 4 E end of loop on map pointer 
Be Ene sy eeun coo 
= oa 
988 4 P = .P + WCB_S_ENTRY; 
989 END; 
990 
991 
336 Advance to next window block. 
3994 Ww = .WCWCB_LINK); 
995 END; 
36 
998 !' There were not enough i int to ad to th ified tual 
By 4 | Rsk ita ether tab at "weet wim 
4001 SS$_ENDOFFILE 
4002 1 END; 
OOAE6 -BLKB 2 
00000000 OOAE8 P.AAB: .LONG 0 
eEXTRN SYS$QI0, SYS$QI10W 
OFFC 00000 R_W_VIRTUAL: 
20 C2 0000 SUBL 
58 1C AC 09 000 MOVL + "LB 
OC AE 20 AC 00000200 8F C7 00009 DIVL3 w3{2 Pe. y2¢sP) 
o¢ AE D 90015 MOVL (SP) 
6 4 AC 00 0001 MOVL LP 
08 AE Oc AC 10 C3 0001B SUBL3 #16 FUNC Bs?) 
04 «AE 08 AE OD 1 MOVL Bs), UF 
6 D 4 TSTL 
E 13 000 BEQL $ 
00000000' A 9 b8 A TSTL URRENT_WCB 
50 00000000" EF 00 000 CURRENT _WCB 
06 0 €ED 000 #0, #6, FUNC, RO 8 
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STAACP Standalone ACP 16-se -1 Ax-11 Bliss- -74 

voe-000 R.W_VIRTUAL = perform read and write virtual 1 300-138 99: 3g: i BACKUP SREIST STA tb :B32; Page ot) 
7 \¢ 3F BNEQ : 
0c AO : p i CHL ies. 12(RO) + 3812 
51 00000000" EF 09 4 MOVL ¢ RRENT MTL, Rt + 3813. 
48 3 Al 2 4 BBS 49(R1) : 
4 AE 0420 F 3¢ MOVZWL #1656. LF : 3816) 
SB AF 0 MOV 4 ANB LP : 3817) 
57 26 o¢ AO C¢ p SUBL 1g¢R 5, in LP2 : g18 
6 ¢C OA 7 006 MOVL JecRO), LP : 819 
51 57 & ty do0e8 18 ADDLS LPS. LP2, RI ; 3830. 
ve Th 9 $8 00090 ee pee 
51 00000000" EF D 0072 MOVL CURRENT MT MTL. Rt + 3831) 
1D 31 OAT 2 €0 0007 BBS ; 
50 0c a0 6 ¢ 0075 SUBL3 LP ps, +asttOS. Ro + 3834) 
08 1 008 BGEO : 
D4 00085 CLRL R : 
50 00 0087 2$: MOVL RO, Lp2 : 
50 57 09 ; 008A ASHL. #9. LP2, RO : 3835 | 
51 20 AC 50 ¢ OO8E SUBL3 RO. P2, R1 : | 
51 00 6E re Beeg 2 90093 movcS #0, (SP), #0, R1, aPICROI ; | 
52 00000000" EF D0 0009B 3$: MOVL CURRENT WCB, w + 3841) 
58 04 A 00 OOA2 MOVL 4(W), N : 3842 
52 DS OOOA6 4$: TSTL) so > 3843. 
g 12 OOOA8 5$: BNEG 6$ ; 
017F 31 OOOAA BRW 25$ : 
55 14 A2 9E OOOAD 6S: MOV g0(R2), P + 3845) 
6E 08 A2 9A 4 MOVZBL (Ww), (SP) ; 3851) 
10 AE 6E 01 ci 00B5 ADDL3. #1, (SP), I : 
0165 31 OOOBA BRW 24$ ; 
58 56 D1 OOOBD 7S: CMPL  LP3, N : 3862 | 
03 IF 000¢ BGEQU 9$ ; 
0157 3 900¢ 8$ BRW 23$ : 
50 58 65 1 000C5 9$ ADDL3 (P), N, RO ; 
50 56 D1 0009 CMPL P3, RO ; 
F4 1€ O00CC BGEO $ : 
51 56 04 AS C1 000C ADDL3 4(P), LP3, R1 > 3875) 
SA 51 28 ¢3 0000 UBL3 N, Ri, xP$ 3 
51 65 56 ¢3 0000 L3-LP3, (P), RI : 3876. 
51 38 CO 00008 ADDL2 WN, 1 : 
50 57 00 OO0DE OVL LP2, RO ; | 
51 : D1 3) PL RO RI ; 
E4 BLEQU 10$ ; | 

9 1 D0 000E6 VL Ri. RO ; 

50 D OOE9 10$:  MOVL RO, XP2 F 
0 00000000' fF D E MOVL CUARENS wCB, RO : 3877 | 
54 6 3 C1 OOOF ADDL3 LP3, R4 ; 

1 oc Ad dO OF MOVL retho) ai® ; 

4 51 D FB CMPL R RG 3 

3 1€ O00F BGEGU | ; 
oc ae 18 a 118: MOVE ORT. Nocrop : | 
a9 7 D} 1 CMPL LPs. XP2 : 3878. 
1 é or A BNEO 4 : | 

1¢ AC 5B OD 10C CMPL LP1, P1 3 
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Standalone ACP 18-se “19 242: AX-11 Bliss-32 V4.0-74 P 81 
R_W_VIRTUAL = perform read and write virtual 1 ~$007 1382 99:62:88 BACKUP. SRC STAACP 0304 908 28), 
A 14 0010 BGTR 15 : | 
57 ¢ ib? 18S: SUBLZ XP2, LP : 346 
4 CO O01DA ADDLe XP2, LP + 3947) 
18 0S AE E1 001D BBC #2, LFUNC+1, 208 : 3953) 
DS 1E TSTL p ; 3954, 
14 14 OO1€ BGTR 0 3 | 
04 AE 08 AE 00 00166 MOVL (SP), LFUNC + 3957 
38 iC AC 00 OO1EB MOVL L : 3958) 
3 g¢ AE DO OO1EF MOVL etsP) LP2 : 3959 
6 A 1F3 MOVL P3, LPS : 360 
FE 177 19$:  BRW 73 : 39 
53 53 1FA 208:  ASHL #9. R3, R3 : 3967 
B C Ife ADDL2 3, LPI : | 
50 10 AC D OVE 1088. RO ; 3968 | 
Op 1 3 BEQL i$ ; 
69 1 8 MOVW = #1, (ROD F 3971 
51 9 A ASHL. #9, LP2, R1 : 3972 
02 AO 20 AC 1 A 6 OE SUBW3 RI. P2, 2(RO) : 
7 D 14 218 TSTL P : 3974 
04 14 00 16 BGTR 3 3 
50 1 DO 00218 22$:  MOVL #1, RO + 3975 
04 00218 RET : 
58 85 CO 0021C 238 ADDL2 (P)+, N + 3987 
55 04 C0 0021F ADDL ,? : 3988 
D1 10 AE F 00 22 24$ SOBGTR 1, 19$ : 3851 
52 62 D0 00226 OVL Ww, Ww + 3994 
FE7A 31 00229 W : 3843 
50 0870 8F %3C 0022C 258: MOVZWL #2160, RO : 4002 
04 00231 26$: T : 


| 
| 
; Routine Size: 562 bytes, Routine Base: CODE + OAEC | 
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STAACP Standalone ACP 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 
voe-000 READ_HOMEBLOCK = read volume home block 13-808- 1383 99:82:88 EBACKUP.SRe STAALP 0304 
: 2473 4003 1 ZSBTTL ‘READ_HOMEBLOCK = read volume home block’ 
8 tee Z ¢ } ROUTINE READ _HOMEBLOCK (CHANNEL ,DEVICE_CHAR,HOME_BLOCK): NOVALUE= 
: $406 rt a 
; 478 4 08 1 | FUNCTIONAL DESCRIPTION: 
; rt ¢ 8 : : This routine reads the home block from a specified volume. 
; re 4011 1 | INPUT PARAMETERS: 
3; 248 tog 1! CHANNEL = Channel number assigned to device. 
3; 248 4015 1! DEVICE _CHAR - Device characteristics of device. 
3 the ibis : : HOME _BCOCK - Buffer into which home block will be read. 
; 486 401g | i IMPLICIT INPUTS: 
: rtf ret ' } CURRENT_VCB 
> 2489 4019 1 ! OUTPUT PARAMETERS: 
Pp oe By titties 
> 249 40 g 1 ' IMPLICIT OUTPUTS: 
in oe a 
> 2495 4025 1 § ROUTINE VALUE: 
: 24696 rt § : : NONE 
> 2498 4028 1 | SIDE EFFECTS: 
3 2499 4029 1! NONE 
: 2500 4030 1! 
3; 2501 4031 1 !-- 
3 a4 ret 1 
. i ee 
: 2505 4035 HOME BLOCK: REF BBLOCK, ! Pointer to home block buffer 
: $208 rtf ‘ai DEVITE_CHAR: REF BBLOCK; ! Pointer to device characteristics 
; $207 4038 DELTA, ' Home block search delta 
3; 2509 4039 BLOCKFACT, ! Device blocking factor 
3: 2510 4040 STATUS, ! Status variable 
3 2511 4041 10SB: VECTORC4,WORDJ; ! 1/0 status block 
Ba Be 
3 2514 4044 !' Compute the home block search delta from the volume geenetry. according 
3; 2515 4045 !' to the following rules, where volume geometry is expressed in the order 
: 218 rt : sectors, tracks, cylinders: 
3 2518 4048 2! nxixi: 1 
3; 2519 4049 ! Txnaxd: 1 
: 2 $830 1xixn: 1 
: 25 ; 403¢ i nxmx 1: n+1 
3: 25 $82 ! nx ix m: n+1 
: : 3 : 22 Txnxam: n+1 
; 3 $ 4056 ; sxtxe: (t+1)*s¢1 
; 528 405 BLOCKFACT = (.DEVICE_CHARCDIB$B_SECTORS) 
> 2529 2089 * DEVICE CHARCDTOSS, TRACKS 


mon 8 


STAACP Standalone ACP 1b-se Sep-1984 AX=11 Bliss-32 v4.0-74 > | 
¥04-500 READ. HOMEBLOCK = read volume home block 12ree=} 88s P9:ee:gs | aXe h Okiess#e ays: 0334 age oF 


0 4060 * DEVICE CHAR[DIBSW_CYLINDERSJ) 
/ .DEVICESCHARLDIBSL_MAX XBLOCK : 


06 
4064 DELTA = 1; 


; 5 4065 

; 40 

; 406 IF 

3; 2538 4068 -DEVICE_CHAR(CDIBSW_CYLINDERS) oye 1 AND 

3 278 rt H . y revice. CHARLDIBSB_TRACKS) GTR 1 

3 2541 4071 DELTA = .DELTA + .DEVICE_CHARCDIBSB_TRACKS); 

; ot§ 4 ie} 

3 a 407 

3 2544 4074 IF 

3; 2545 4075 -DEVICE_CHARCDIB$B_SECTORS) GTR 1 ne 

: 2546 407 (. DEVICE CHARCDIB$SQ_ CYLINDERS] GTR 1 OR 

3 2547 407 -DEVICE_CHARCDIB$B_TRACKS) GTR 1) 

3; 2548 4078 THEN 

3 363 rite DELTA = (.DELTA * .DEVICE_CHARCDIBSB_SECTORS] + .BLOCKFACT) / .BLOCKFACT; 
3 $22) 4081 

5 226 408 IF 

3; 255 408 DELTA EQL 0 OR 

3 2554 4084 “DELTA GTRU .DEVICE _CHARCDIBSL_MAXBLOCK] / 10 

3; 2555 4085 HEN 

3; 2556 408 DELTA = 1; 

3 2557 408 

3; 2558 4088 

: 2559 4089 ! Search for a valid home block. The loop terminates when one is found. 
3 $260 4090 i If an error other than a surface error occurs, or when the entire 
3: 2561 4091 ' yolume has been nan De and no valid home block found, a fatal error 
3 206 409 ! is signalled. 

3: 256 409 ! 

3 2564 4094 iNCRU LBN FROM 1 BY .DELTA DO 

3; 2565 4095 BEGIN 

3 2566 P 4096 STATUS = $Q10W 

3 $207 P 4097 FUNC=10$ READLBLK. 

3; 2568 P 4098 CHAN=. CHANNEL, 

3 2569 P 4099 10SB=10SB 

: 2570 P 4100 P1=,HOME_BLOCK, 

3 2571 P 4101 pezdie. 

; 376 $196 P3=.LBN); 

3; 257 $18 IF .STATUS THEN STATUS = .IOSBL(O]); 

3 2574 4104 IF .STATUS 

: 272 t1ba 4 BEGIN 

. a se 

5 258 £109 SELECTONE .HOME BLOCKCHM2$B STRUCLEV) OF 

: 2580 4110 SET 

3; 2581 4111 

3 286 cit¢ {1}: 

3 287 411 § BEGIN 

3 25 4114 (HOME _BLOCKCHM1$W_STRUCLEV] EQL HMISC_LEVEL1 OR 
: 2585 4115 6 »HOME-BLOCKCHM1$W"STRUCLEV] EQL HMISC"LEVEL2) AND 
3 2586 4116 6 -HOME_BLOCKCHM1$W_TBMAPSIZE] NEQ 0 AND 


e 
STAACP Standalone ACP bse -1984 00:42: AX-11 Bliss-32 V4.0-74 Page 84 
¥00-000 READ_HOMEBLOCK = read volume home block : 330-1382 90:82:88 BACKUP SRE ISTAACP.B30¢4 (28) 
; 2587 4117 6 -HOME BLOCKCHM1SL_IBMAPLBN) NEQ 0 AND 
; Hy 7118 6 »HOME BLOCK WaIgU PARE LEE NEQ 0 AND 
; 4119 6 HOME BLOCKLHM1 SW puustes NEQ 0 AND 
; 2590 4120 6 CHECKSUM2(. HOME _BCOCK, SBYTEOFFSET(HM1SW_CHECKSUM1)) AND 
3 2591 4121 CHECKSUM2(.HOME_BLOCK, SBYTEOFFSET(HM1$W_CHECKSUMZ2) ) 
; 8 4} ¢ END; 
3; 259 41 
3 2594 4124 
3 2595 4125 (2): 
3 2596 41 S 6 BEGIN 
: 2597 4127 6 -HOME_BLOCKCHM2$L_HOMELBN] EQL ;LBN AND 
3 2 41 4 9 ~HOME BLOCKUHM2SL_ALTIDXLBNJ NEQ 0 AND 
; 4) »HOME BLOCKLHM2$W_CLUSTER] NEQ 0 AND 
; 2600 4130 6 -HOME~BLOCKLHM2$W_HOMEVBN] NEQ 0 AND 
; 2601 4131 6 -HOME_BLOCKCHM ay AL Hone ven, NEQ 0 AND 
3; 260 41 ¢ 6 HOME BLOCKLHM2SW_ALTIDXVBNJ NE AND 
3 260 4133 6 -HOME BLOCKCHM2$W_IBMAPVBN] NEQ 0 AND 
3 2604 4134 6 -HOME BLOCKLHM2SL_IBMAPLBN] NEQ 0 AND 
; 2605 4135 6 eHOME BLOCKCHM2S$L_MAXFILES] NEQ 0 AND 
3 2606 4136 6 -HOME BLOCKCHM2$W_IBMAPSIZE] NEQ 0 AND 
: 2607 4137 6 -HOME BLOCK SWURESFILES] NEQ 0 AND 
; 2608 oi38 6 CHECKSUM2(. HOME _BCOCK, TEOFFSET(HM2$W_CHECKSUM1)) AND 
3; 2609 4139 6 CHECKSUM2(.HOME_ BLOCK, SBYTEOFFSET(HM2$W_CHECKSUM2) ) 
3; 2610 4140 5 D; 
3; 2611 4141 5 
; oie a138 5 
3; 261 414 2 COTHERWISE): 
3: 2614 4144 FALSE; 
3; 2615 4145 
; soig 2138 
3; 261 414 TES 
3; 2618 4148 5 END 
; $13 4149 4 THEN 
3; 262 4150 4 EXITLOOP; 
3 os! 4151 4 END 
3; 26 ; £136 3 ELSE 
3; 26 4153 4 BEGIN 
s ° 4 $138 ? Md STATUS EQL SS$_ILLBLKNUM 
3; 262 4156 4 SIGNAL (BACKUPS$_NOHOMEBLK, 1, CURRENT_VCBCYCB_DEVICE]); 
3 eh 4157 4 
3 ° 8 4158 4 
3 9 4159 4 STATUS NEQ SS$_PARITY AND 
3; 2630 4160 4 STATUS NEQ SS$_FORMAT AND 
3 2631 4161 4 eSTATUS NEQ SS$_DATACHECK 
3; 26 ¢ rth | & THEN 
3; 263 4165 4 SIGNAL (BACKUP$_READERR + STSSK_SEVERE, 1, CURRENT_VCBCVCB_DEVICE], .STATUS); 
3 2634 4164 3 END; 
3: 2635 4165 ‘ END; 
3; 2636 4166 END; 


1F READ_HOMEBLOCK: | 
TF 00000 READ -MOMEGORD' Save R2.R3,R4,R5,RO.R7,RB 4004, 
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STAACP Standalone ACP 16-Sep-1984 00:42:29 AX-11 Bliss-32 V4.0-742 Page 87 
v04-000 READ_HOMEBLOCK = read volume home block 14-Sep-19 41 30:83 (BACKUP. SRe STAACP.832;1 ’ (285 
0000005C 8F 54 01 $0166 CMPL sigtus. #92 3; 4161 

11. 13 0016D BEQL 1$ : 
54 0D bate PUSH STATUS : 4163 

7E 67 0 Ci 9 1 ADDL #32, CURRENT_VCB, -(SP) : 

1 OD 31 f3 PUSHL 1 : 

00000000G 8F ODD 0017 PUSHL #BACKUPS$_READERR+4 : 

4 F8 3128 CALL #4, LIBSSIGNAL : 
5 2 9 19 21$: ADDL DELTA, L 3 4094 

FEFE 31 0018 BRW 6$ 3 


; Routine Size: 390 bytes, Routine Base: CODE + ODIE 


N 2 
STAACP Standalone ACP 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 Page 
yoe~000 STA_LINIVOL = initialize volume 13-80-1382 90:62:63 (BACKUP-SRe STAACP.832; ’ (28 
> 26 4167 J SBITL “STA INIVOL = initialize volume! 
3; 2639 41 3 1 GLOBAL ROUTINE STA_INIVOL : NOVALUE= | 
3 2640 41 1 | 
3; 2641 4170 1 !+4¢ 
; ong 4171 1! ‘ | 
3; 264 2176 1 ! FUNCTIONAL DESCRIPTION: 
3 2644 4175 1! This routine initializes a volume. 
3; 2645 4174 1! 
3 a8 4175 1 ! INPUT PARAMETERS: 
3 264 oie i! NONE 
3: 2648 4177 1! 
; 2649 oiee 1 ! IMPLICIT INPUTS: 
3; 2650 4179 1! QUTPUT_ATTBUF = Contains volume summary attributes. 
: $033 4180 i OUTPUT “MTL - Pointer to MTL for output volume set. 
4 re 1186 1 ! OUTPUT PARAMETERS: | 
> 2654 4183 1: NONE | 
3; 2655 4184 1! 
3 2656 rt 1 ! IMPLICIT OUTPUTS: 
3; 2657 4186 1! NONE 
3; 2658 4187 1! 
3; 2659 4188 1 ! ROUTINE VALUE: 
3; 2660 4189 1! NONE 
3; 2661 4190 1! | 
3 O66 4191 1 ! SIDE EFFECTS: 
3; 266 $136 1! NONE | 
3 2664 4193 1! 
3; 2665 4194 1 !<- | 
3 2666 4195 1 
3: 2667 4196 BEGIN 
3: 2668 4197 LOCAL 
3 2669 4198 HOME _BLOCK: BBLOCKL512), ' Home block buffer | 
3: 2670 4199 VN, ' Actual RVN 
3; 2671 $300 CHANNEL, ! Channel number 
; sore 4201 SC: yecronte? : Descriptor 7 
3 267 rea) DEVCHAR: BBLOCK DIBSC_LENGTH), ! Device characteristics 
3: 2674 420 US; ! Status variable 
3 2675 4204 
3: 267 4205 
3 ore ? 4 : Find the MTL and VCB for the volume to be initialized. 
3 2679 4208 2 RVN = .OUTPUT_ATTBUFCVSR_RVNI; 
3; 2680 4209 IF .RVN EQL 0 THEN RVN = 1; 
3 2681 4210 2 CURRENT_MTL = .OUTPUT_MIL; | 
 5ee 4512 
3 2684 4 ig ! Make sure the number of output volumes specified in the command matches 
3 eH ; 1 : the number specified in the save set. | 
3 268 4 16 IF NOT .QUALCQUAL_VOLUJ 
3 2688 421 THEN | 
3 2689 4218 IF 
3; 2690 4219 BEGIN | 
3 2691 4220 IF .COM_O_SETCOUNT EQL 0 
3: 269 4221 THER » CURRENT _MTL mit Ser count NEQ 1 
; $693 4gce ‘ ELSE .CURRENT“MTLCMTL-SETCOUNT) NEQ .COM_O_SETCOUNT 


s | 
| 


3 
STAACP Standalone ACP 18-se -1984 00:42: AX-11 Bliss-32 V4.0-74 Page 89 $s 
ye 000 STALINIVOL = initialize volume 12-86-1382 90:82:63 YBACKUP SRE STANCE 83064 (26) | V 
; 2695 4224 THEN | ; 
3 098 4225 SIGNAL (BACKUP$_BADSETCNT); é 
: $698 1559 | 
; 444 4228 ! Make sure the relative volume number specified in the save set is : 
; £0 ? 2 within range. : 
; 4 ? 1 HT egititt>- CURRENT ATLCATL _RVN_BASE) GTRU .CURRENT_MTLCMTL_SETCOUNT) | ; 
> 2704 2588 SIGNAL (BACKUP$_INVATTVAL) ; | ; 
3705 4234 | é 
; 107 2 $ Assign a channel to the volume and get the device characteristics. | 3 
3 2709 4238 CURRENT_VCB = .CURRENT MTLCMTL_VCB(.RVN=.CURRENT_MTLCMTL_RVN_BASEJ)); : 
: 2710 4239 CH = SWITCK_VOLUME(.RVN); | 3 
3; 2711 4240 pesth = 01BSC_CENGTH; 3 
: ar 4241 DESCC1] = DEVCHAR; F 
: 271 4 4¢ STATUS = $GETCHN(CHAN=.CHANNEL, PRIBUF=DESC); | ; 
; rie 4243 2 IF NOT .STATUS : 
3 2716 4245 SIGNAL (BACKUPS_GETCHN, 1, CURRENT_VCBCVCB_DEVICE)); | : 
my Bt ey! 
; 2719 4248 : If the initialization parameters are to be propegetes from the output. | : 
3 730 rer volume, read its home block and reinitialize OUTPUT_ATTBUF as appropriate. : 
; ree 1584 if NOT .QUALCQUAL_INIT) | ; 
; as $528 THEN F 
: 5758 584 as | ; 
: o726 4239 ! Read the home block. | ; 
; 2728 4337 READ_HOMEBLOCK(. CHANNEL, DEVCHAR, HOME _BLOCK); | 3 
5756 539 | : 
3; 2731 4260 ! Make sure that the new structure level matches the old. This is the | 3 
3 $736 $$0) } only initialization parameter that must not change. : 
: ree 4368 if .HOME_BLOCKCHM2$B_STRUCLEV) NEQ - (OUTPUT_ATTBUF CVSR_VOLSTRUCTJ)<8,8> | 3 
; res 4363 SIGNAL (BACKUP$_STRUCLEV, 1, CURRENT_VCBCVCB_DEVICE)); : 
: 738 4267 ; 
3; 2739 1568 ! Reinitialize the OUTPUT_ATTBUF area with the initialization parameters : 
3 ve 2383 : from the output volume. | : 
> 274 4271 if .HOME_BLOCKCHM2$8_STRUCLEV] EQL 2 | F 
: 276 427 THEN é 
; 2744 4273 4 BEGIN | : 
3 2745 4274 4 BBLOCKCOUTPUT_ATTBUFCVSR_VOLNAME], DSCSW_LENGTH) = HM2$S_VOLNAME; 3 
: 2746 4275 4 BBLOCKCOUTPUT_ATTBUFLVSR_VOLNAME), DSCSA POINTER) = —= BLOCKCHM2$T_VOLNAME]; 3 
3 2747 4 6 & BBLOCKCOUTPUT_ UF CVSR_OW ERNAME DSCSW_LENGTH] = HM 53 CUE RHA : 
: 2748 4277 4 BBLOCKCOUTPUT~ATTBUF CVSR-OWNERNAME), DSCSA-POINTER] = HOME BLOCKLHM2$T_OWNERNAME); | 3 
3 2749 4278 4 (OUTPUT_ATTBUFCVSR_VOLDATE]) = .(HOME BLOCRCHM2$Q CREDA : : 
3; 2750 4279 4 (OUTPUT_ATTBUFCVSR-VOLDATEJ#4) = . (HORE BLOCK LHACSO CREDATE1+4); : 
: 2751 4280 4 OUTPUT_ATTBUFCVSR_JOLOWNER) = .HOME_BLOCKCHM2$L_VOLOWNER); : 
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STAACP tandalone ACP i$-se $ep-1984 00:42: AX-11 Bliss-32 V4.0-74 Page 90 
v04-000 TALINIVOL = initialize volume 122808- 1386 99:82:53 BACKUP. SRC STAALP “B30, “4 (26) 
: 2? 1 4 OUTPUT_ATTBUFCVSR_MAXFILES] = HOME BLOCKCHM2SL ppaxe lt $); 
3 ef g ¢ 4 OUTPUT"AT TBUF VERTPROTECTS = .HOME BLOCKCHM2$W abF 
> 2754 4 T“ATTBUFLVSRIFILEPROT) = MROME BLOC CHM Sor EPROTI; 
3 2755 4 4 OUTPUT—ATTBUF VoR_RECE ROT = HOME _BLOCKCHM Sa, F1LEpnot 
: e? $ 5 4 OUTPUT-ATTBUFLVSR-VOLCHAR] = .HOME-BLOCKLHM su VOLCHAR]; 
; 27 § 4 OUTPUT_ATTBUFLVSR_EXTEND] = .HOME BLOCKCHM2$SW EXTEND): 
3 £38 4 OUTPUT_ATTBUFCVSR-CLUSTER] = .HOME BLOCKCHM2SQ CLUSTERI; 
; 2759 88 4 OUTPUT_ATTBUFCVSR_WINDOW) = .HOME BLOCKCHM2$8_QINDOW); 
> 2760 89 4 OUTPUT-ATIBUFEVSR-LRU LIN] =. OME BLOCKCHM2$8_LRU_LIM; 
3 2761 90 4 OUTPUT-ATTBUFCVSR-INDEXLBN) = .HOME BLOCKCHM2 Cc JQAAPLEN} ; 
3 276 91 4 COUTPUT ATTBUFCVSR_RETAINMIN]) = .(ROME BLOCKLHA 8 RETAINMIN]); 
3 276 3 4 (ouTPY AN TBUFEVSR-RETAINMINJ+4) = . (HOME BLOCKLHM2SQ RETAINMINI +4); 
3 2764 93 4 (OUTPUT-ATTBUFLVSR_RETAINMAX]) = .(HOME BCOCKLHM2$Q_RETAINMAX]); 
3 2765 94 4 (OUTPUT ~ATTBUE VSR-RETAINMAX]+4) = . (HOME BLOCKCHM2$Q_RETAINMAX+4); 
; 166 95 ; IF .H Pi -BLOCKCHM2SW_RVN] EQL 1 AND. HOME “BLOCKCHM2$W-SETCOUNT] NEQ 0 
3 2768 3 4 ove 
3 2769 98 4 nnn $S_S RUEMAR 
: 2770 4 HOME By oceting HAST =STRUCNAMEJ, | 
3 2771 00 4 com_6 | 
3 277 301 4 END 
3; 277 $06 3 ELSE | 
3 2774 03 4 BEGIN | 
3 2775 4304 4 OUTPUT_ATTBUFLVSR STRUCLEV] = .HOME BLOCKCHM1$W_STRUCLEV); 
3 2776 4305 4 LOCKTOUTPUT_ATTBUFLVSR_VOLNAME], Bscsvte perce = HM1$S_VOLN | 
3 2777 4306 4 BBLOCKCOUTPUT_ATTBUF CVSR_VOLNAMEJ, DSCS$A_POINTER] = HOME “BLOCK THAIST _VOLNAME2); 
: 2778 4307 4 BBLOCKCOUTPUT—AT TBUF LVSROWNERNAME J, bScSu LENGTH H]_= HM1SS_OWNERNAME; 
3 2779 4308 4 BBLOCK OUTPUT-ATTBUF CVSR-OWNERNAMEJ, DSCSA POINTER) = HOME OL OcKLHm §t _OWNERNAME J; 
; 2780 4309 4 ROM _ODS1_DA rE HOME _BLOCRCHM1$T_CREDATE), OUTPUT_ATTBUFLVSR_VOLDATE]) 
3; 2781 4310 4 HUTPOT ORT TBUF VSR_VOLOWNER] = . THOME _BLOCKCHM1$W VOL OWN ERJ)20, | 
; 2782 4311 4 (OUTPUT_ATTBUFCVSR_VOLOWNER < <i6,8> = . (HOME BLOCKCHM1$W VOLOUNERI)<8, 8>; 
: ere; 4312 4 PUT_ATTBUFCVSR_MAXFILES] = .HOME BLOCKCHMTSW MAXFILESJ; 
3 2784 4313 4 OUTPUT_ATTBUFCVSR-PROTECT] = .HOME BLOCK CHAI $i PROTECT 
3 2785 4314 4 OUTPUT-ATTBUFCVSR-FILEPROT) = .HOME BLOCKCHM1$0 FILEPROT); 
3 2786 4315 4 OUTPUT-ATTBUFLVSR-EXTEND] = .HOME "BCOCKE Nase ERTENDI; | 
; 2787 4316 4 OUTPUT_ATTBUFCVSR_WINDOW) = .HOME peg Ockt Pak wINDoW}: 
: 2788 4317 4 OUTPUT“ATTBUFCVSR-LRU_LIM) = .HOME BLOC ISB LAY LIA); 
; 3789 4318 4 OUTPUT~ATTBUFLVSR~INDEXLBN] = ROT (HOME MeLOcR AMI SCo IBMAPLBN], | 
3; 2790 4319 3 END; 
: 2791 4320 END; | 
3 2792 4321 
3: 2793 $356 
; re 4334 ; Call the volume initialization routine to complete the work. | 
3 2796 a3 5 CURRENT MTL MTL L STRUCLEV] = = sOUTPUT ATTBUFCVSR_ STRUCLEV]; | 
3 2797 4326 CURRENT_VCBLVCB-ODS_2 URRENT ar eet  STROCLEV] EQL 2); 
: 2798 432 INITIALIZE eyOLUREC torrent: “vee. DEVCHAR 
3 2799 4328 1 END; | 
-EXTRN SYSSGETCHN | 
9000 -ENTRY STA {NIVOL , Save R2,R3,R4,R5,R6,R7 > 4168 | 
7 £00008 of 00" of 00 MOVAB LIBSSIGNAL, R7 : 
6 00000 3E 008 MOVAB CURREN ut mt R6 ; 
E FD84 10 MOVAB -636(S sé ; 


d 3 
STAACP Standalone ACP 16-Sep “13 4 AX-11 Bliss= 4. $ 
voe~000 STA INIVOL = initialize volume 1e-8ep- 1982 19:82:68 — LeAcKuP SAE istaace o3o¢ rae 8} y 
§2 FBS2 0015 MOVZWL OUTPUT_ATTBUF+66, RVN : | : 
» foe br § ct 
. | ’ 
6 FC AG OD 1f 1$: MOVL Output MTL, CURRENT_MTL + 4210) : 
F F996 «= C6CE ; BLBS UAL+1Z, 4$ : iit : 
20 66 p HOV CURRENT “MTL, RO : : 
1 FA07 6 7A Oy ZBL aay ome R1 : 0. 3 
01 1F KS of 20 Cue ino), @ : Sat : 
51 1F AQ 4 8 @$: CAPS 1(RO), R1 + 4222. : 
000000006 BF DD 8 E PUSHL #BACKUP$_BADSETCNT t 4225) : 
67 1 FB 0044 CALLS #1, LIBSSIGNAL : 3 
50 66 D 9047 4$: MOVL rey NT_MTL, RO + 4231) : 
51 30 AO 9A 0004A MOVZBL 4 : : 
51 32 51 C3 0004 SUBL3 RI, R : I; 
51 1F AO 0 0 FD 905 cMPZy #0. pi *31(RO), : : 
000000006 8F oD O05A PUSHL #BACKUP$_INVATTVAL : 4233. : 
67 01 FB 00 69 CALLS #1, LIBS$SIG 3 : 
51 66 DO 00063 5S: MOVL  CURRENT_MTL, R1 : 4238) : 
50 30 Al 9A 90066 MOVZBL 48(R1), RO ; : 
50 52 50 ¢3 006A SUBL3 RO, RVN, RO ; : 
04 Ab 34 A140 D0 0006E MOVL 52(R1)CROJ, CURRENT_VCB : | : 
52 DD 00074 PUSHL RVN : 4239. : 
F222. «CF 01 FB 00076 CALLS #1, SWITCH VOLUME ; 3 
52 50 00 00078 MOVL RO, CHANNEL 3 : 
74 AE 74 BF 9A 0007 MOVZBL #116, DESC + 4240) ; 
78 «AE 6E 9E 0008 MOVAB DEVCHAR, DESC+4 > 4241) ; 
7E 7C 00087 CLROQ -(SP) : 4242) 3 
7¢ =6AE 9F 00089 PUSHAS DESC : | : 
7E D4 9008¢ CLRL = = (SP) : : 
52 DDO OBE PUSHL CHANNEL ; : 
000000006 00 0 FB 9009 CALLS #5, SYSSGETCHN ; 3 
10 50 €8 00097 BLBS TUS, 6 ; 4343 : 
7E 04 Ab 20 C1 0009A ADDL3 #52, CURRENT_VCB, -(SP) + 4245 | : 
1 DD 0009F PUSHL ; : 
000000006 8F DD 000A1 PUSHL scree GETCHN ; : 
ate 03 FB OO0A7 CALLS LIBSSIGNA NAL : : 
03 F992 C6 05 & OOAA 6$: BBC bUALS ION 4 > 4251 | : 
0118 31 99080 BRW ” ; : 
33 7C «=6AE «OF 00083 78 PUSHAB HOME BLOCK : 4257 : 
04 AE OF 0086 PUSHAB DEVCRAR : 3 
52 DD 0008 PUSHL CHANNEL : : 
FDBA CF 03 FB 000B CALLS 4&3, READ HOMEBLOCK : : 
FBS1 = C6 0089 i ? 99¢ CPB HOME _BLOCK+13, OUTPUT_ATTBUF +65 > 4263 
7E 04 Ab C ites ADDL3 #32, CURRENT_VCB, -(SP) : 4265 | : 
1 DD ce PUSHL #1 ; : 
000000006 8F DD 000D PUSHL WBACKUPS. STRUCLEV : : 
3 OC+*ér 06 CALLS SSIGNAL 3 | 3 
02 0089 9 9 8$: CMPB HOME_BLOCK+13, #2 3 4271) : 
} 0 BEQL + 3 | 3 
00 1 E BRW Xs g 3 
C 80 98: MOVW #12, OUTPUT_ATTBUF > 4274 | : 
D8 AD 9E O00E MOVAB HOME _BLOCK+%72, OUTPUT_ATTBUF +4 > 4275 | : 


= 


3 Routine Size: 503 bytes, Routine Base: CODE + OEA4 


: P 92 s 

-$ep-1984 00:42: AX-11 Bliss-32 V4 0-76 age Hy 

vou~000 STATINIVOL = initialize volune Ve-$ep-1986 11:54:08 EBACKUPCSRESSTAACP 030+ 7 
5 TBUF +8 s 4276 é 
FBI8 C6 Oc BO 00E MOVAB HOME BLOCKsZe4. OUTPUT _ATTBUF +12 0577 

a ee eo CHT fe) 

rB i a CEO 001 Vi -HOME-BLOCK=28. OUTPUT-ATTBUF +S i 4381 : 

FB44 OC 98 CE DO 001 move, ME“BLOCK+52, OUTPUT-ATTBUF+ 3 4282, : 

4S Be OEE BO oTts Vi HOMETBLOCKsS6, QUTPUT“ATTBUF s+? : 4286 | : 

FB58 = C6 0B4 cE 8B 11 vw HOME _ ° PUT“ ATTBUF +74 : 4285 : 

eh ie Ge BRENIG aly Ne ai aeeodg. SUTRA Ot Be) | 

FBS 3 06a CE BO OO1SA Vy HOME BLOCK#14, OUTPUT-ATTBUE +7 i 4287 ; 

FBS C6 OcO CE 69 131 MOVW = HOME : ° T-ATTBUE SB : 1356 

FBG4 C6 Py Oe ORS lee ROY HOME-BLOCK 72. QUTPUT“ATTBUF* 6 ; 4291 ; 

fe 8 33 fe fe oD 146 MOVQ $HOME-BLOCK+80, OUTPUT ATTBUF +104 3 4293 : 

rere Ot OOS cE a 0140 CHP HOME BLOCK+58, #1 ; 4 ° ; 

N }- 3 

00A4 cE ; 00134 131¥ HOME _BLOCK +40 peak 

FAIS C6 cc AD O¢ 28 0013A ROves #12, HOME_BLOCK+460, COM_O_STRUCNAME ; ay 
68 11 00161 Be leeaaal : $et 

res) ce 088 E90 GOIEE 108: Ove Home _puocuerz,gurPuT_ATTBUr is): 

Bie 33 d8 AD Be O1gt MOVAB WOME BLOCK+272, OUTPUT _ATTBUF +4 : £306 

41 AS 9E OOITA MOAB HOME BLOCK*Z64, OUTPUT _ATTBUF #12 ; 4308 : 

rec 66 058 C6 SF 00180 PUSHAB OUTBOT _ATTBUF +24 ; 4309 

OBC CE 9F 00184 PUSHAB H ves. 

meOvPBSs. C6 09A Oe Ee Bales ROVZBL Sect aree Aout aru i 4319 ; 

Fece, C6 (0088 «EE 8 OOI9D MOVZUL HOMETBLOCK*G, “OUTPUT. ATIBUF #52 i 431¢ : 

FB44 «C6 = 0082) CE «3C:0019D MOVZUL HOME “BLOCK TTBUF +52, : $3 

FB54 «(6 «= 009C_- SCE «BO 00144 MOVW — HOME ~BLOCK+ 32, OUTPUT _ATTBUF +68 sit 

FB5C «C6 =A CE «9B 0018 MOVZBW HOME : TIATIBUF 67 : 3312 

foee Ee SOAR EE (90 b1¢0 MOVB NOME BLOCK #46, OUTPUT “ATTBUF #8 2 4317 : 

race cove eM AG Se Ooner ROTL #16, HOME BLOCK+2, OUTPUT _ATTBUF +84 : 4318 ; 
50 66 DO OOICE 11$:  MOVL CURRENT MTL, ty | 

32 POL Ke bo oop? ROVE CURRENT’VCB, R2” $4326, : 

51 D4 001DB CLRL ORI ; | 

ee BABI | Bey Bam. a ae | 

1 D6 OO1E INCL RT | : 

a2 a ; PGE ro TRL Hl ra pepe 
4006 02 FB OolEr CALLS #2, INITIALIZE_VOLUME 4328 : 

000000006 00 FB OOIEF CAL : | 7 


x [ 
th init “ont initialize volume file headers ~$007 1383 90:62:83 YencKuP’ she STALE o3004 P08 oF) ’ 
TT 


+ bar ; andalone 

H £0) 4 } ZSBTTL "STA_INIT_HDRS = initialize volume file headers’ 

; § ? : GLOBAL ROUTINE STA_LINIT_HDRS (REC): NOVALUE= 

: 4 1 !4¢ 

; 804 4 5 1! 

3 oo8 4 1 ! FUNCTIONAL DESCRIPTION: 

; 280 4335 1! This routine initializes file headers on an output volume to have the 
: 43 2 § : : file sequence numbers that they had originally. 
; 810 4338 i INPUT PARAMETERS: 

3 \} ? ; : REC - Pointer to save set record, type BRHSK_FID. | 
; AE 4 ra 1 | IMPLICIT INPUTS: 

: si3 ? § ! } OUTPUT_MTL - Pointer to MTL for output volume set. | 
; 816 4344 1 | OUTPUT PARAMETERS: | 
: 281 4345 1! NONE 
3; 2818 4 “6 1! 
3; 2819 4 1 ! IMPLICIT OUTPUTS: 

: S851 4348 1 i NONE | 
3 28 é 4350 1 ! ROUTINE VALUE: | 
 585e a3. 1 i sees | 
> 2825 4 36 1! SIDE EFFECTS: 
; 28 $ 4354 1: NONE | 
: $856 tae 1 i | 
; : 8 i ) arene | 
> 2831 435 MAP 

$ a 6360 snes REC: REF BBLOCK; ! Pointer to save set record 

; sB32 cee RSA: VECTORCNAMSC_MAXRSS,BYTE), ! Resultant string area 
: tH 436 CHANNEL , ! Channel for output volume 
3 te rie: STATUS, ' Status return 
3; 283 4365 10SB: VECTORC4 ,WORD) ! 1/0 status block 
3 2838 4366 FILE_ID: BBLOCKCFIDSC_LENGTH], ' Current file ID | 
3; 2839 436 FILE NUMBER, ! File number of first header 

3; 2840 4368 REA, ! Pointer to allocated memory 
3 2841 ry} REF BBLOCK, ! Pointer to current header 
3 a6 ? 4 SEQ: REF BBLOCK; ! Cursor for sequence vector 

: B44 4 2 

3 Bea ° a Initialize. 

; 4375 2 CURRENT_MTL = .OUTPUT_MIL; 

3 2848 4 76 IF REC BSASB_F1D_RVN GEdu o CURRENT ATL ERTL 26 CONT + ,CURRENT_MTLCMTL_RVN_BASE) 

: $886 2378 5 THEN SIGHAL (RCKUPS INVATIVAL ore n mee UN ABASE 

3 2851 4 8 CURRENT ¢ = . CURRENT MILEMTL VCB( .RECCBSASB_F 1D_RVNJ~. CURRENT MTLCMTL_RVN_BASEI)]; 

3 b3¢ 4380 RSA. Dest = NAMSC_MARRSS; 

3; 285 4381 RSA_DESC(1] = RSA; 

3 2854 P 4 § $F AOC 

3 2855 P 4 SDESCRIPTOR(* !ASCOOOOOOJINDEXF .SYS;1"), 

3 B26 P 4384 RSA_DESC, 

3; 285 P 4385 RSA_DESC, 


: 


SeseTERISSS 


Seas 


Sesseenes 
Ri 


3 
Standa ACP é- -1 242: Ax-11 Blis 
STR INL T ORS - initialize volume file headers : Het 1 99:32:88 EBACKUP.SRe 
4 CURRENT_VCBLVCB_DEVICE)); 
4 
2 Get memory for buffer. 
4 4 AREA = GET_VM(512 * .RECCBSASW_FID_COUNT)); 
6398 
4394 2 HDR = AREA; 
4395 2 SEQ = .REC; 
4 3% FILE_NUMBER = .RECCBSASW_FID_NUM; 
439 FILE-NUMBER<16,8> = .RECCBSASB_F10_NMX): 
4 4 INCRE N FRO -FILE_NUMBER TO .FILE_RUMBER+.RECCBSASW_FID_COUNTJ-1 DO 
44 IF .N GTRU .CURRENT_VCBLVCB_MAXFILIDX] THEN SIGNAL (BACKUPS_INVATTVAL); 
4401 FILE_IDCFIDSW_NUM] = .N; 
44 é FILE-IDCFIDSB-NMXJ = .N<16,8>; 
4405 FILE-IDCFIDS$W-SEQ) = .SEQCASA$W_FID_SEQ); 
44 FILE-IDCFIDSB-RVNJ = .RECCBSASB_FID-RVNI; 
4405 IF 
4406 4 BEGIN 
4407 4 IF .N-1 LEQU 15 
4408 4 THEN 
4409 é -BITVECTORCCURRENT_VCBCVCB_INIT_HDRSJ, .N-1) 
4411 4 FALSE 
ale 4 END 
4413 3 THEN 
HB Be 
1413 2 : Initial file header. Reread it, rather than blowing it away. 
4418 4 READ_HEADER(FILE_ID, .HDR); 
4419 4 END 
4420 ; ELSE 
44 1 4 BEGIN 
44 5 4 ! Initialize file header as a deleted header with the appropriate 
rr : 2 : file sequence number. 
44 6 4 CREATE_DELHDR(FILE_ID, .HDR); 
4428 HDR = .HDR + 512; 
4429 SEQ = .SEQ + 2; 
4430 END; 
4431 
44 : 
2 : Write out buffer to index file. 
4435 2 CHANNEL = SWITCH VOLUME(.RECCBSASB_FID_RVN)); 
44 CURRENT_WCB = .CORRENT_VCBLVCB_INDEXF J; 
44 STATUS = R_W_VIRTUAL ( 
4438 t 
4639 
4440 10$_WRITEVBLK, 
4} Oss, 


$sfaale:S5507 


Page 3 


atin 


H 3 
STAACP Standalone ACP 16-Sep-1984 242: AX-11 Bliss- 
y0e~000 STALINIT_HDRS = initialize volume file headers 12-860-1 382 99:82:63 BACKUP SRE staat Page 3} 
: 2915 4463 0 
; 16 6444 AREA, 
: $31 reek ate RONGER  e CLARET UCBLVCB_WOR_OF FSET?) 
: 318 444 SUAITFATEFNCOTS . OR ; 
: 2920 644 IF .STATUS THEN STATUS = .10SBC0); 
: 2921 4449 IF NOT »STATU 
: 39 § c433 SIGNAL (BACKUPS_WRITEERR + STSSK_ERROR, 1, RSA_DESC, .STATUS); 
3 29 44 
: 9 é pets) } Release memory for buffer. 
3 2928 445 FREE_VM(512 * .RECCBSASW_FID_COUNT], .AREA); 
3 9 1039 END;~ 6 Phe 
45 44 4E 49 5D 30 30 30 30 30 5B 53 41 21 01098 P.AAD: .ASCII \!ASCOOQOOOJINDEXF.SYS;1\ : | 
3 38 33 59 8 2— 46 3 BOAR ; 
919 BLKB | 
00000017 01084 P.AAC: <LONG 23 : 
00000000" 010 -ADDRESS P.AAD : 
-EXTRN SYSSFAO | 
OFFC 00000 .ENTRY STA,INIT HORS, Save R2,R3,R4,R5,R6,R7,R8,- ; 4330) 
58 90000000" EF 9E 00002 MOVAB RSA DESC, R11 : | 
5A 00000000" EF 9E 909 MOVAB CURRENT VCB, R10 : 
5E FEFO CE 9E 9019 MOVAB =272(SPY : 
FC OA FB AA DO 0001 MOVL  OUTPUT_MTL, CURRENT_MTL : 4375 | 
53 04 ag oo OO1A MOVL REC, R3 : 4376) 
36 06 AS 9A OO1g MOVZBL 4(R3), R6 F 
0 FC AA po 00 OVL CURRENT ATL, RO : 
51 1F AO 9A 00026 MOVZBL 31(RO),"R : 
2 30 AO 9A 600 A mov ZBL 48(RO), R 3 
52 CO 0002E ADDL R2, R1 3 
1 56 01 00031 CMP R6, RI : 
06 it 00 BGEGU : 
56 30 Ad 91 000 CHEB 48(RO), RG : 4377 | 
Op 1B 0003A BLEQU : | 
000000006 8F DD 0003C 1$: PUSHL #BACKUP$_INVATTVAL : 4378) 
000000006 90 01 FB 04 CALLS #1 L F 
1 FC OAA p 49 28: MOVL  CURRENT_MTL, R1 > 4379. 
50 30 Al OA 9940 MOVZBL 48(R1),"R : 
50 56 30 C3 051 SUBL3. RO, RO, R F 
6A 34 Al4 5 055 Move. 52r1)CR0J, CURRENT_VCB : | 
68 8F 9A OO05A MOVZBL #255, RSA DESC > 4380 
06 AB 10 AE 9E 000 OVAB RSA. RSA_BESC+4 : 4381 | 
7E 6A C é ADDLS # ¢. CURRENT_VCB, -(SP) + 4386 | 
B OD PUSHL R11 : 
B 0D 9 PUSHL R11 : | 
BA AF OF B PUSHAB P.AAC 3 
000000006 04 FB CALLS #4, SYSSFAO ; 
06 As 3¢ MOVZ2WL 6(R3), R5 > 4391. 
57 0 7 ASHL #9, R5, R7 ; | 


standalone ACP 
STALINIT_HDRS = initialize volume file headers 14-Sep-1 
7 OD 70 
000000006 ; 1 4 7F 
Dd 
eee ta F 
52 1 & 6 
38 ; 53 £1 00099 
FF OA . 9D 
5A 1 Al 
5 +4 AS 
1c) OA 5 ° A6 
D 1B AA 
00000000G 8F DD A 
000000006 00 1 4 08 
+3 5 BO 0008 
50 55 0 18 F Q00BC 
0S A 5 0 000C1 
02 A 08 <A4 B0 Bete 
04 AE 26 0 QOOCA 
51 FF AS 9E O00C 
OF 51 ot 00D 
14 1A 0000 
50 A pO 00007 
oc 18 Ad 1 €1 QOODA 
8 DD O00DF 
04 ag 9F OO0E1 
Fi0B.—SséCF 02 FB O00E4 
oA 11 OO0E9 
8 pp Benes 
046 =A F QOOED 
F281 = CF 02 FB td 
58 0200 C8 Y9E OO0F 
ee 96 CO QOOFA 
Ae 5 Fe OOOFD 
56 DD 00101 
EF7D gf 01 FB 00103 
0 6A DO 001 
04 AA 60 01 
50 1A A C Bio 
604 F 00113 
DD 00116 
9 0D 00118 
—e 7¢ pita 
1¢ af 9F OO1IC 
; D OO11F 
3 C 00121 
F908 gf F 1 ; 
2 0 OD 1 
E D4 00128 
000000006 00 9 re 12D 
7 2 4 1 
¢ 08 A 4 137 
1 E 1 
DD 001 
B DD 0014 
1 0D 0014 


3 
16-Sep-1 


3$: 


4$: 


ao UW 
eo fm 6lUW® 


Be 19:58:65 


AX-11 Oi tag 
BACKUP. SRC 


§ 
) 
) 


CURRENT_VCB, RO 

N SB tROS 
#BACKUPS_INVATTVAL 
a, LIBSSIGNAL 
#16, #8: N, RO 


1645 
8(S€0), FILE_1D+2 
R6, FILE 1D+% 

5), Ri 


ri, #15 
CURRENT_VCB, RO 
Ri, 24(RO), 5$ 
HDR 

FILE 1D 

We. READ_HEADER 


HDR 
FILE ID 

#2, CREATE_DELHDR 
512(R8), HOR 

#2, SEQ 

R3, N, 3$ 

#1, SWITCH VOLUME 
CURRENT VCB, RO 
(RO), CORRENT_WCB 


6 R 
10509) 1 Pa eacas 


-(SP) 
#9, RW VIRTUAL 
RO, STATUS 


=(SP 
#1, SYSSWAITFR 


3 
S. 


Bete Ge Se Se Ge Ge Se Ge Se Ge Ge Se Se Se Se Se Se Se Se Se Se Sees Ge Geese Se Se Seas 


3; Routine Size: 


sande Lene ACP 1b-5e 
STALINIT_HDRS = initialize volume file headers 1 
00000000 F 144 
comer: ts el i iB : : 
000000006 00 2 FB 3 ; 


349 bytes, Routine Base: CODE + 108C 


-Sep-1 
~Sep-1 


be 19:58:63 


AX-11 Blis 
BACKUP. SRC 


=32 V4.0-74 
STAGE: 830; 


CALLS me LISSsIGNAL 


EALLS #2, whe f va 


vuvv 


SRP LHLLLL LLL 
PAPA AAAMIMIVI 


K 
e ACP -$ep-1984 00:42: AX-11 Bliss-32 V4.0-74 
TEBOOT = write volume boot block 1§-Se0-1984 90:32:63 BACKUP.SRCIST AACP 3° B3009 
SBTTL *STA_WRITEBOOT - write volume boot block’ 


sé 
a3 


Qee 


! Read the boot block from the relative volume on which the presently accessed 
file is located. 


CURRENT <MTL = .OUTP 
R “CURRENT | wii MTL. Ho of a -MTLCMTL_F ID_RVNJ~.CURRENT_MTLCMTL_RVN_BASE))]; 


= 
= 
} = CURRENT» RRS: VCB- INDE 
= NAMSC_ 
RSA DESC 1] = RSA; ~ 
+9 iy | guile tenetentaeate teil 


CURRENT icetvce DEVICE)); 
STATUS = R_O_VIRTUAL( 


10$_READVBLK, 
osé, 


1 
i : LOBAL ROUTINE STA_WRITEBOOT : NOVALUE= 
44 1 fe 
44 ¢ 1! 
44 1 ! FUNCTIONAL DESCRIPTION: 
rrr] } : This routine is called to initialize the boot block. 
prt ¢ | 1 ! INPUT PARAMETERS: 
4467 1! NONE 
4468 1! 
rr 1! IMPLICIT femurs: 
4470 1! OUTP yarrow - - Contains file attributes. 
4471 1! OUTPUT MTL Pointer to MTL for output volume set. 
ret : : ” Boot file is accessed. 
4474 1 ! OUTPUT PARAMETERS: 
4475 1! NONE 
447 1! 
4477 1°! IMPLICIT OUTPUTS: 
4478 1! NONE 
4479 1! 
4480 1 ! ROUTINE VALUE: 
4481 1! NONE 
44 ¢ 1! 
44 1 ! SIDE EFFECTS: 
4484 1! Boot block rewritten. 
4485 1! 
4486 1 !-- 
4487 1 
4488 BEGIN 
4489 LOCAL 
4490 RSA: VECTORCNAMSC -MAXRSS, ere? ! Resultant string area 
4491 BUFFER: BBLOCKES12),- |! Buffer for boot block 
449 STATUS, i Status variable 
449 10SB: VECTORE4,WORD]; ' 1/0 status block 


28" 2B} 


———————————————e— ee 


3 
STAACP Standalone ACP 18-50 -1984 00:42: - VAK=11 Bliss<-32 V4.0-74 Pa 99 
04 STA.WRITEBOOT = write volume boot block 22805-1986 11:44:08 | FBACKUPOSAR SS TaAte O35, 9° 28) 
; 389 tai SOFFER 
3 4 13 Rie, 
3; 2991 451 ); 
; 996 451 SWAITFR(EFN=0); 
3 4 IF .STATUS THEN STATUS = .J0SB(0); 
3: 2994 4521 IF NOT .STATUS 
3; 2995 4 § THEN 
3 44 $e Brin 
3 1244 43 4 $1GNAL (BACKUPS_READERR + STSSK_ERROR, 1, RSA_DESC, .STATUS); 
> 2999 4 END; 
rs 
3 Ong 45 § ! Update the boot LBN in the second Longuere of the boot block to point to 
; 300 45 ’ ! the VBN given by OUTPUT_ATTBUFLFAR_BOOTVBN] of the presently accessed file. 
3 O08 é The file is assumed to Be contiguous. 
3 B08 45 3 BUFFERL4,0,32,0] = 
: 300 4534 ROT( 
; 3008 4535 Ree ae Oceh  CuNnent SrL CRT winooud., WCB_S_HEADER,0,0,0], WCB_LBN] + 
3; 3009 4536 -OUTPUT_AT TBUF FAR_BOOTVBN - 1, 
3; 3010 4537 ); 
3; 3011 4538 
5 Bg 4539 
3; 301 4540 ! Rewrite the boot block. 
3 3014 4541 4 
3 3015 4o4¢ STATUS = R_W_VIRTUAL( 
; 3016 454 0, 
3; 3017 4544 0 
; 3018 4545 10$_WRITEVBLK, 
3; 3019 2248 os6, 
; 3020 454 ° 
: ps1 4548 0, 
3; 30 § 4549 BUEFER, 
3; 302 4550 12, 
3; 3024 4551 1); 
3 33 453¢ SWAITFR(EFN=0); 
: 3026 455 IF .STATUS THEN STATUS = .10SB[0); 
3 BSe $228 on » STATUS 
3 099 $228 SIGNAL (BACKUPS_WRITEERR + STSSK_ERROR, 1, RSA_DESC, .STATUS); 
3; 3030 4557 1 END; 


45 44 4E 49 5D 30 30 30 30 39 30 58 53 41 21 01219 P.AAF: ASCII \!ASCOOOQOOOJINDEXF.SYS;1\ : 
ow ee Te bes sen : 
0000000' 01 : [ADDRESS P.AAF : 
007¢ 00 -ENTRY STA_WRITEBOOT, Save R2.R3.R4,R5,R6 2 4459 | 
# oooolftie $b JE Huss ARYA SVRRULRT a 
4 tata 8 * EF 9€ $00 MOVAB RSA_DESC, R4 : 


, a 


a 3 
Standalone ACP 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 
STA_WRITEBOOT = write volume boot block 1 300-1382 90:82:63 BACKUP. SRC STAACP 03024 
3 00000000" EF 15 MOVAB CURRENT_MTL, R3 
if oP C 3 1 MOVAB ee tSPy SP 
FC OAS OD MOVL  OUTPUT_MfL, CURRENT_MTL 
é MOVL RRENT_MIL, RI 
1¢ «Al OOA MOVZBL 28(R1),"R 
30 Al OA MOV ZBL (R1), R 
52 ¢ SUBL2 R 
6 A 4 A140 0 MOVL 52(R1)CROJ, CURRENT _VCB 
8 A 4 : 0 9 OVL @CURRENT vCB, CURRENT_WCB 
64 FF BF OA MOVZBL #255, RSK_DESC 
04 AG FFOO p i 04 MOVAB RSA, RSA_BESC+4 
7E 4 A3 C 004 ADDL3 #32, CURRENT_VCB, -(SP) 
4 DD 00040 PUSHL 4 
54 BD O4F PUSHL R4 
AG AF OOF 00051 PUSHAB B AAE 
000000006 00 4 FB 00054 CALLS #4, SYSSFAO 
1 DD 00058 PUSHL @# 
7E 0200 8F 3C 0005 MOVZWL #512, =(SP) 
10 AE 9F 0006 PUSHAB BUFFER 
7E 7C 0006 CLRQ = =(SP) 
14 AE 9F 00067 PUSHAB 10SB 
31 pp 006A PUSHL #49 
66 65 FB Specs fetes | #9 RW VIRTUAL 
52 93 dO 00074 MOVL RO, STATUS 
7E 04 00074 CLRL 0s = ¢ §P 
65 01 FB 90076 CALLS #1, SYSSWAITFR 
06 52 &9 0079 BLBC TATUS, 1 
52 6— 3c 0007¢ MOVZWL 10SB, STATUS 
OE 38 8 90078 BLBS STATUS, 2$ 
52 DD 0082 1$: PUSHL STATUS 
54 DD 00084 PUSHL 
01 DD 000 PUSHL #1 
000000006 af DD 0008 PUSHL #BACKUPS_READERR+2 
50 rh D0 00096 2s: MOVL §CURRENT_MTL, RO 
50 08 Ad DO 9009 MOVL (RO) 
50 18 A0 FB78 c3 cy 0097 ADDLS OUTPUT_ATTBUF+104, 24(RO), RO 
Oc AE 50 10 9C 000k ROTL #16, RO, BUFFER+4 
01 DD OOOA PUSH 
7E 0200 8F 3C 0047 MOVZWL #512, -(SP) 
10 AE 9F OOOAC PUSHAB BUFFER 
7E 7C OOAF CLRQ = =(SP) 
14 F 9F 00081 PUSHAB 10SB 
pp 0084 PUSHL #48 
E C BG CLRQ. = =(SP) 
66 FB 008 CALLS #9, R_W_VIRTUAL 
52 0 pO 00088 OVL RO, STATUS 
—E D4 08 CLRL 0—._- = (§P) 
65 Q] FB C CALLS #1, SYSSWAITFR 
6 2. : 00C LBC STATUS, 3$ 
3 ¢ 6 C6 MOVZWL 10SB, STATUS 
E ¢ LBS STATUS, 5$ 
dD 6 CC 3$: PUSHL STATUS 
4 DD 000C PUSHL  R4 
1 DD 0000 PUSHL #1 


ae 


 - 


Yoe- 000 SFangRiTesooF write volume boot block if: a 99:82:63 BACKUP ESR staat te: $:839:4 Page 33) 
000000006 a 43 FB GooD8 us 


PUSH ACKUP$_WRITEERR+2 é 
000000006 00 CALLS te LIBSSIGNAL 


: 4557 
; Routine Size: 224 bytes, Routine Base: CODE + ek 


ee ete ~] 


P 


STAACP Standalone ACP 1b-se -1984 00:42:29 AX-11 Bliss-32 V4.0-74 Page 102) 
yoo 000 STA_MOUNT = mount volume for stand-alone use 14-Sep-19 4 99:82:88 EBACKUPSRe STAACP .B32; 9° (29) | 
; 30 ¢ t228 1 ZSBTTL *STA_MOUNT = mount volume for stand-alone use’ 
5 ! . 2 : GLOBAL ROUTINE STA_MOUNT (MODE, P_RVN): NOVALUE= 
H 
; 3035 rks 1 44 

; 30 t286 1! 
3; 30 4565 1 ! FUNCTIONAL DESCRIPTION: 
; 5038 4564 1! This routine mounts a volume set. 
3; 3039 4565 1! 
3; 3040 $288 1 ! INPUT PARAMETERS: 

3; 3041 4567 1! MODE - 0: input volume to be read 

: Rig t288 1! 1: output volume to be initialized 

; 304 $28 1! 3: output volume to be updated 
3 30446 4570 1! P_RVN (optional): if absent, Coup lovely mount entire volume set 

3 3045 4571 1! if n, mount RVN n of sequential save set 

3 3046 2256 1! 
: 3047 45735 1 =! IMPLICIT INPUTS: 
; 3048 4574 1! NONE 
3; 3049 4575 1! 

; 3050 4576 1 ! OUTPUT PARAMETERS: 

; 3051 4577 1 | NONE 
3 p26 4578 1! 

3; 305 4579 1 ! IMPLICIT OUTPUTS: 

3 3054 4580 1! INPUT_MTL - Pointer to MIL for input volume set. 

; 3023 4581 1! OUTPUT_MTL - Pointer to MTL for output volume set. 

3; 3056 $256 1! 

3; 3057 458 1 ! ROUTINE VALUE: 

3; 3058 4584 1! NONE 

3; 3059 4585 1! 
: 3060 4586 1 ! SIDE EFFECTS: 

3; 3061 4587 1! NONE 
: bes 4588 1! 
3; 306 4589 1 !<- 

3: 35064 4590 1 
3; 3065 4591 BEGIN 

3; 3066 $238 | 
3; 3067 459 LINKAGE 

; 3068 4594 L_MAP_POINTER= JSB: 
3; 3069 4595 2 GLOBAL (COUNT=6, LBN=7, MAP_POINTER=8); 
3; 3070 4596 LOCAL 

3; 3071 4597 : REF BBLOCK, ! Pointer to qualifier block | 
3 $058 4598 MTL: REF BBLOCK, ! Pointer to MTL block 

3; 307 4599 vCcB: REF BBLOCK, ! Pointer to VCB block 
3; 3074 4600 SETCOUNT, ' Count of volumes in set 

: 87? 4601 CHANNEL, ' Channel number 
3 A} 46 § STATUS, ! System service status 
3; 307 460 10SB: VECTORE4,WORDJ, | 1/0 status block acre 
: 307 4604 DEVICE_CHAR:  BBLOCK piBsc_LENGTH). ' Device characteristics 
3 307 4605 ESC: VECTOR ¢ ! Descriptor 
: 3080 4606 HOME BLOCK: BBLOCK 121, i Home block buffer | 
3 oe $607 hens HEADER: BBLOCK(512]; ! Index file header buffer 
3; 308 4609 INDEX_FILE_ID = UPLIT WORD (FIDSC_INDEXF, FIDSC_INDEXF, 0) 
; 3084 4610 BITMAP_FILE_ID = UPLIT WORD (FIDSC_BITMAP, FIDS$C_BITMAP, 05; | 
: #4 4611 SWITCHES 

3; 30 re Of NOSAFE; 

3; 3087 461 BUILTIN 

; 3088 4614 ACTUALCOUNT; 


<a" 


STAACP Standalone ACP ihese -1984 00:42: AX-11 Bliss-32 V4.0-74 Page 103. 
4600 STA_MOUNT = mount volume for stand-alone use 122800- 138s 99:32:88 BACKUP.SRC STAACP 83064 9 393 

; 3089 4615 EXTERNAL ROUTINE 

; 34! red | GET_MAP_POINTER: L_MAP_POINTER; ! Get value of ODS-2 file map pointer 

; 309 re dt | 

; ak +24 } Count the List of devices. 

; 3095 4621 If CIF .MODE THEN .OUTPUT_MTL EQL 0 ELSE .INPUT_MTL EQL 0) 

; pe 46 ¢ THEN 

3; 309 46 BEGIN 

3; 3098 4626 Q = (IF .MODE THEN .QUALCQUAL_OUTP_LIST] ELSE .QUALCQUAL_INPU_LIST)); 

; 3099 4625 SETCOUNT = 0; 

: 3100 46 $ HILE .Q NEQ 0 DO 

3; 3101 46 4 BEGIN 

: 106 4628 4 SETCOUNT = SE TEQUNT +1; 

3 310 4609 4 Q = .QCQUAL_NEXT); 

3 Re re ? END; 

3; 3106 46 ¢ 

3; 3107 46 ' Allocate the MTL and the VCB's. 

3; 3108 4634 ! 

3; 3109 ret MTL = GET _ZERO_VM(MTL_S_ENTRY + .SETCOUNT * ZUPVAL); 

; 3110 4636 CURRENT_MTL = <MTL; 

3 iE $632 IF .MODE 

3 11 4639 4 BEGIN 

$ site 4640 4 OUTPUT_MTL = .MTL; 

; 3115 4641 4 IF ACTOALCOUNT () GEQ 2 THEN MTLCMTL_SEQ_DISK) = 1; 

£349 tees 3 

: 3118 4644 INPUT_MTL = .MTL; 

: 3119 4645 MTILCMTL_SETCOUNT) = .SETCOUNT; 

: 130 4646 MTLCMTL_RVN_BASE) = 1; 

3; 3121 4647 MTL MTL_HEADER) = GET_VM(512); 

3 \s¢ rer | 

3; 31 4649 3 ! Set up the skeleton VCB's 

3 3126 4650 ! 

3 167 4651 

3; 3126 $826 Q = (IF .MODE THEN .QUALCQUAL_OUTP_LIST] ELSE .QUALCQUAL_INPU_LIST]); 

3; 3127 465 INCR RVN FROM 1 TO .SETCOUNT BO 

; 3128 4654 4 BEGIN 

: 3129 4655 4 MTL CMTL_VCB(.RVN-1)) = VCB = GET_ZERO_VM(VCB_S_ENTRY); 

3: 3130 $626 4 VCBLVCB_RVN) = .RVN; 

3; 3131 4657 4 ¥CBLVCB ACB ‘ur: = VCBCVCB_ACB Moms = VCBCVCB_ACB_FLINK); 

; 31 § $628 & E neg ye vCBCVCB_OUTPOT] = TRUE; 

: 31 4659 4 vat vce FAB) = .Q QUAL PARA FCI; 

; 31 4660 4 BBLOCKCVCB vce DEVICE), DSCSW_LENGTH) = 

3; 3135 4661 4 -BBLOCKCQCGUAL _DEV_DESC), DSCSW he 

3; 3136 4662 4 BBLOCK vcotyce DEVICEJ: DSC A_POINTER = 

; 3137 4665 4 Brhoceee QUAL _DEV_DESC], DSCSA_POINTER); 

3 3138 4664 4 Q = ,QCQUAL_NEXT); 

3; 3139 $932 END; 

3 109 rhs END; 

; 166 £98 ! Now go back and do the actual mount for those volumes requested. 

3 3144 4670 

: 3145 4671 IF .MODE 


<w 


ee - — 


STAACP Standalone ACP -Sep-19 242: AX-11 Bliss-32 V4.0-74 Page 1 
y0e-000 STA_MOUNT = mount volume for stand-alone use if sep-1984 99:82:43 BACKUP. SRCJST Race -832; 9°29) 
; 14g 4673 THEN CURRENT_MTL = MTL = Our T_MTL 

: 314 467 ELSE CURRENT-MTL = MTL = .INPUT_ATL; 

; 148 4674 2 SETCOUNT = sATLtWT SETCOUNTI; 

: 3180 dope 5 On BBY Count, sate 

> 3151 467 THEN INCR RVN 

: 31 é 467 FROM (IF ACTUALCOUNT () LSS 2 THEN 1 1 ELSE .P_RVN) 

: 31 467 TO .SETCOUNT + .MTLCMTL_RVN_BASE 

: gee tea,  pecin 

: 31 6 46 é CURRENT_VCB_= VCB = .MTLCMTL_VCB(.RVN-.MTLCMTL_RVN_BASEJ)); 
3; 31 4 vceCvc B_RVN) = RVN; 

; 138 46 1 VARNES = SWITCH. VOLUME (.RVN); 

; io re Get device characteristics of the device. 

; \6¢ rst DESCEO] = 7 p1Bs¢ eLENGTH: 

: 3164 4690 STATUS s “SGETCHNTCHANE, CHANNEL, PRIBUF=DESC); 

: 3182 1692 Wen. 

: 189 469 aeuntunoea areeens a , VCBCVCB_DEVICEJ, .STATUS); 

: tee teos 

> 3170 4696 IF .MODE NEQ 1 OR .QUALCOUAL_COMP) 

: 3133 + OP ty 

: 138 4699 4 READ_HOMEBLOCK(. CHANNEL, DEVICE_CHAR, HOME_BLOCK); 

: gee tho, 

: 176 rea} 4 ' Check the SETCOUNT and RVNs implied by the command against the 
3 44 ort? : home block. 

: 3179 4705 4 IF .RVN EQL 1 

‘apo wey Mt, 

: 18@ 4708 5 RiLEAT STRUCLEV] = .HOME BLOCK LHM2$B_ STRUCLEV): 

3; 318 4709 2 HOME _BLOCKCHM2$B_STRUCLEV] EQL 

: gib¢ tay 2 BEGIN 

; 186 aig 6 IF .SETCOUNT NEQ 1 

: 3188 4714 6 SIGNAL (BACKUPS_INCSETCNT); 

: 3183 the 8 ELSE 

> 3191 tni9 é BEGIN 

: 198 4718 6 IF .MODE AND NOT .QUALCQUAL_COMP] 

: 8132 1339 § MSREGIN 

: 3195 4721 7 : E_BLOCKCHM2$W_SETCOUNT) NEQ 0 

: 196 47 : ? THEN elt (BACKUP$-VOLINSET, 1, VCBCVCB_DEVICE)); 
; 31 47 7 END 

HS ABS f a 

; 200 47 6 7 a - HOME BLOCK CHNZ$Y SETC NT } Fa. 0 

3 1 47 7 OnF apt HM2S@_R 

3; 3202 4728 7 THEN’ ATL ait’ 4 wit axe 


aa 


| ‘ 
4 . =32 V4.0-74 Page 105 | \ 
=$ep-1984 00:42: AX-11 Blis : (29) | 
STAACP Standalone ACP Soe dieethiaiael-aek 1$-se0-19 2 99:82:63 = YaXckue sae STAACP 3004 | } 
yoo 000 STA_MOUNT = mount volume | : 
END; | 
; 3 4729 : 
; 4730 (LSS 2 
; ofa) Ok NOT MTCEMTL Sb DISK) 
: 473¢ on - ; 
: 3508 rae BEGIN 
; $209 6739 F BEGIN 
: 3sio 2589 IF .SETCOUNT EOL 1 i 
7 H | ; 
: M2$W_RVN) NEQ 0 ; 
By th ina REA SEM ENRST AMS Sea 1 pat 
: is Hs «HOME _BLOCKCHM2$W_RVN] NEQ .RVN | ; 
° 1 i 
o 474 e i . 
; ! apes g THEN | GNAL (BACKUPS. INCRVN, 1, VCBCVCB_DEVICEI); | i 
° 1 : 
4 474 : 
: esse tree ~ | 
4 38 4769 IF .SETCOUNT EQL 1 | ; 
4 TH ; 
ETCOUNT] NEQ 0 
: : Pe ino" nGneBLOCRENRSLCSET COUNTS Neo 1 al 
> 4 ; 
3 3208 tee 8 .HOME_BLOCKCHM2$W_SETCOUNT] NEQ .SETCOUNT | 
; END | : 
; 475 
; a cnr 7 THEN IGNAL (BACKUPS INCSETCNT) ; | ; 
Be RE oH 
: 4761 ELSE 
4 3 tye TF HOME BLOCKCHM2SW_RVNI NEQ 0 | ; 
4764 7 THEN | ; 
539 4765 RVN. = HOME _BLOCKCHM2SW_RVN); | 
40 ores VCBLVCB_RVN] = .RVN; : 
i rb t4 MIPEMTE RVN. BASES = .RVN; | : 
3 
4 4769 | 
4770 | 
4 orn) 3 VEBLVCB_NOTVOLSET 213 | ; 
f ORR Y oo: peal 
49 tne 8 CHSMOVE ( 
4776 6 : 
39 “7? & nnoSs, sTRU NMost STRUCNANE]. 
25 rat MTLERTL-STRUCNARES) ; 
4780 ND; : 
3¢ 4781 END ; 
47 ELSE 
35 788 EGIN 3 
2 d iF Q .RVN OR 
28 1386 .HOME_BLOCKCHM2SW_RVN) NEO . 
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suey WRORSCSIAUEANMES ROCERRLOTROChane UCMME?- 


wee eee. 1, VCBLVCB_DEVICE]); 
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} Finish initializing the vCB. 


CHSMOVE (HM2$S_VOLNAME, HOME BLOCKCHM2$T_VOLNAME], VCBLVCB_VOLNAMEJ); | 
TF ;:HOME BLOCKCHA $B_STRUCLEV) EGL 2 | 


> J 


4799 


SEPP PLP LPP EEE YY 


-ROME BLOCKCHM2$W_CLUSTERJ; 
= .HOME BLOCK Hes CLUSTER] _* 4 + .HOME_BLOCKCHM2$W_IBMAPSIZE); 
= .HOME BLOCKCHM2$W TeAAP SIZE * 4096; 

= ,HOME_BLOCKCHM2$L_IBMAPLBNI; 


RUE ; 
$V _NOHIGHWATER] THEN MTLCMTL_NOHWM] = TRUE; 
J 


: 
: 
e 


CHAN=, 
10S8=10S8, 
ee 
= o 
O8= HORE PLOcEC nest . Loman BH) + HOME _BLOCKCHM2$W_IBMAPSIZE)); 
IF .STATUS TREN STATUS =".10SB[0); 
IF .STATUS THEN STATUS = VERIF Y_HEADER (HEADER, INDEX_FILE_ID); 
IF NOT .STATUS 
TH 
BEGIN 
STATUS = $010W( | 
FUNC=]0$_READLBLK, 
CHAN=. CHANNEL, 
10S8=10SB8, 
PI=HEADER, 
= 
et) hae tL NJ); 


P3=. HOME 
STATUS TREN STATUS =". 10SB 
STATUS | 


vuvuvvU 
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oO 
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 . 
+ 
THEN 
BEGIN 

STATUS = VERIFY_HEADER(HEADER, INDEX _FILE J 
IF NOT .STATUS THEN STATUS = §S$_BADFILEHDR 


END; 
If NOT .STATUS 
THEN 


SIGNAL (BACKUPS NOINDEXF, 1, VCBCVCB peyice). » STATUS); 
CREATE_WINDOW(HEADER, .RVN, VCBCVCB_INDEXF o 1, 0); 


: if we are going to write on this disk, also read in the 
! index file bitmap, and scan the storage map to build the 
: allocation table. 


iF .MODE AND NOT .QUALCQUAL_COMP) 


Dd); 
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$ 
$ 
4 THEN 
4 BEGIN 
Q — 1TS_SET ' fl i 
! flag meaning ones seen 

4 $ yd cOuNT, ° count of extents found in bitmap 
4 (AS sei. | SiStae Cen of extent” 

: ! endin n 
é GLOBAL REGISTER eset aes 
4 C = . : goer revel pointer count 
4 § LBN= trieval pointer LBN 
2 ? ene" = POINTER= 8: REF BeLOCK. ! Pointer to scan map area 
: 5 BUFFER = HEADER : VECTOR; ! buffer to read bitmap 
4 5 VCBLVCB_OUTPUT) = TRUE; 
4 a vcBtvCB- SAVESET] = TRUE; 
? vCBLV vee. INI 
4 


J = TRUE; 
vVCBLV B-IMAPT” = GET_VM(.VCBLVCB_MAXFILIDXJ/8); 
STATUS 5 = $010u( 


P 4861 | 
p 3 thane ck READLBLK, 
P 0S : | 
P 4865 P1=.VCB véB_IMAP], 
Pp pee. VCB vcB~ “MAXEIL1D43/8, 
CBCVCB-IMAP_LBN]); 
IF .STATUS THEN “STATOS” = ,{0sBC0); 
3 IF NOT » STATUS 
4 SIGNAL (BACKUPS_READIMAP, 1, VCBCVCB_DEVICE], .STATUS); | 
P Brg STATUS = $0J0W( | 
P 4874 FUNC=10$_READLBLK, | 
Pp 875 CHAN=. CHANNEL, | 
Pp 26 10S8=10SB, 
4 af pees AER, 
_ | 
379 CBCVCB_IMAP_LBN) + VEBLVCB_MAXF ILIDX1/4096 + 1); 


5 
r sn THEN-STATOS = .10SB 


SYatUs = VERIFY_HEADER(HEADER, BITMAP_FILE ID); 

} Uf nor ~STATUS THEN STATUS = SS$_BADFILEHDR; 
IF NOT * STATUS 

SIGNAL(BACKUPS$_NOBITMAP, 1, VCBLVCB_DEVICE], .STATUS); 
MAP -POINTER = HEADER + ,HEADERCFH2$B_MPOFFSET)*2; 
GET" MAP_POINTER 


COUNT =".COUNT = 1; 
If COUNT NEQ (CC, eels ceatnity PANO OFK Js «VE ety CB_CLUSTERJ~-1) 


cB ¢ STER /°409 
THEN SIGNAL (BACKU . VCBCVCB_DEVICE)); 
vcB 3 Tr LBN ue sort ; %, 
vCBCVCB~BI TMAP— SIZE) = COUNT: 
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7 
4 ] 
STAACP tandalone ACP 16- -1 242: AX-11 BLi 0-74 Pp 
ve 000 SFR MOUNT = mount volume for stand-alone use 1 ~3007 138% 99:82:88 BACKUP’ SREISTAA of age 39) 
3 49 ELSE ' 
.) res eEGIN a: 
; 4 Het SIGNAL (BA BACKUPS. ODS2SAVE, 1, VCBLVCB_DEVICE)); | i 
3 5 4% VCBLVCB_CLUSTER | ‘ 
; 4966 VCBLVCB-HOR OFFSET] = 22+ Efi ocktnmisy 1OMAPSIZE3; : 
; 496 VCBLVCB-MAXFILIDXJ = .HOME “BLOER HM1$W_IBMAPSIZEJ $6; | : 
3 P 4964 STATUS = $Q]0W( i 
; P 4965 FUNC=10$_READLBLK, i 
: 3440 P 4 CHAN=. CHANNEL, | : 
> 3441 P 496 JosB=iose. : 
Ee BBS ppsaer ea 
> 3444 49 bg ROT(.HOME_BLOCKCHM1$L_1 RAPLEN]. 16) + .HOME_BLOCKCHM1$W_IBMAPSIZE}); | : 
: 3445 497 If .STATUS THEN STATUS = .10SB i 
; 497 If . STATUS i 
3: 344 497 THEN i 
: 48 4974 6 BEGIN ; 
: 346 4975 6 STATUS = VERIFY_HEADER(HEADER JMDex FILE_ID); | i 
: 3490 497 If NOT «STATUS THEN STATUS = $$ _BADF ILEHDR:; | 
: $458 497 IF NOT .STATUS 
> 3454 4980 SIGNAL (BACKUPS NOINDEXE vcBCVCB DEVICE. STATUS); : 
> 3455 4981 CREATE SUINDOWCHEADER. EN CBL VER. INDEXFJ i 
3 28 4982 4 END; : 
$ 5 rh 3 
: 3458 49 IF cw : 
: 3459 4985 AND MTLEMTL_SEQ Hiten THEN EXITLOOP; | ; 
3; 3460 4986 j { 
: 3461 4987 1 ew" | : 
0000 0001 0001 01318 P.AAG: .WORD 1, 1, 0 : | : 
0000 0002 0002 0131E P.AAH: :WORD 2. 2. 0 : 
INDEX_FILE_ID= P.AAG | F 
BITMAP_FILE_ID= P.AAH 
OFFC 00000 -ENTRY STA_MOUN UNT, Save R2,R3,R4,R5,R6,R7,R8.R9.~ ; 4559 
FB68 «CE MOVAB -1176(SP), SP : i 
36 G3 AC 25 itd BLBC MODE, 1$ t 4621 | i 
00000000" EF 05 00 08 TSTL QUTPOT ATL ; 
0000000" EF D5 00013 18: Fst.‘ INPUT_ATL a } 
6S 13 3 2$ BEQL 33 ’ : | 
OODA 18 BRW 15$ 3 { 
08 04 AC E 1E 3$ BLBC MODE, 4$ > 4624 | 
2 00000000" EF ; MOVL QUAL 4, Q : 
52 00000000" EF 00 00088 48: ROL yak 
D4 SE CLRL = SETCOUNT : 46 5 | 
D3 é$ TSTL > 4626 
BEQL 7S 2 | 


4 | 

STAACP tandalone ACP b-se -1984 00:42: AX-11 Bliss<-32 V4.0-74 Pa 10 | $ 
v04 STR MOUNT = mount volume for stand-alone use =$007 1382 90:82:88 BACKUP .SRC STALE O30+4 aft lst \ 
59 D INCL SETCOUNT 3 4628 | : 

52 é ROVE (9), Q : i ; 

7E 59 7$: ASHL. #2, SETCOUNT, -(SP) : 46 4 : 
c ADDL2 «#52, (SP) : | i 

000000006 1 Ff CALLS #1, GET_ZERO.VM : : 
00000000° ff 6E D MOVL MTL CURRENT ATL + 4636. ; 

5 06 AC E BLBC MODE, 8S : 4637. ; 

00000000° FE 6E 0 MOVL MTL, OUTPUT_MTL + 4640 F 

2 i 4 cAPB (APS, #2 + 4641 : 

50 6 1 ADOLS #49, MTL, RO ; F 
6 1 BISB2 #1, (RO) : F 

7 BRB 9 + 4637 : 

00000000' EF 6E 00 gs: MOVL_ MTL, INPUT_MTL + 4644 F 

50 3 1 gi 77 9$: ADDL3 #31. MTL, RO + 4645 ; 
6 MOVE. SETCOUNT. (RO) : : 

50 of 1 ADDL3 #48, MTL. RO + 4646 F 
6 1 90 MOVE = #1, CRO : : 

; 0200 BF 3¢ MOVZWL #512, -(SP) + 4647 ; 

000000006 0 o1 FB CALLS #1, GET_VM F ; 

“ 4 85 60 ALS #12, WIC. RS 
09 046 AC pS BLBC MODE, 10$ + 4652 : 

52 00000000' EF bo MOVL  QUAL+4, Q : F 

S BRB 11$ : : 

52 00000000' EF 00 10$: MOVL QUAL, Q : F 

D :  MOVL  SETCOUNT, R : 4 F 

” 23 D4 ” CLRL = RVNN GUNT, 4 wae : 

4111 1 BRB 14$ : F 

43 44 BF OA 12$:  MOVZBL #68, -(SP) + 4655 : 

6 F CALLS #1, GET_ZERO_VM ; ; 

eppione 9 b D VL +4 ve : 

55 6F 0 Ci ADDL3 #48, mT RS : ; 
654 2 pO VL = VCB. (RSSCRVNI ; 3 

06 AB 7 MOVE VN. 6(VCB) > 4656 : 

5 28 AB MOVAB 40(V¥CB), RO : 4657 F 

3¢ AB 3 D MOVL RO, 44(VCB) ; F 

8 AB 0 D MOVL RO. 40(VCB) : F 

04 AC D TSTL bE + 4658 : 

7 -”B 8 § Bi s2 A> aevee) : : 

9 AB 06 A2 D 13$: MOVL  4(4), 48(vCB) : 4659 : 

AB 10 Ad B MOVW Toca, 2(VCB) + 4661 : 

4 14 Ad D MOVL 20(Q); 36(vCB) > 4663 i 

$2 D mov. (Q), 4 ; 4664 i 

8B F 14$:  AOBLEQ R4, RVN, 12$ > 4653 i 
06 AC CE 15$:  BLBC MODE, 16$ > 4671 : 

6E 00000006" ai bo MOVE TPUT_ATL. MTL : 4672 ‘ 

6E 00000000" EF b9 168 MOVL NPUT_MTL, ™ + 4673 ‘ 

00000000" Ff ge D 178 ve AIL, CURRENT _MTL : | 

50 3 1 gi ADDL3 MTL > 4674 | i 
60 9A MOVZBL (ROS, SETCOUNT ; i 

2 6¢ 91 CMPB Pp): # + 4675 

6 iF BLSSU $ 3 ; 


K 4 
Standalone ACP 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 Pp 11) ! 
STA_MOUNT = mount volume for stand-alone use 1 300-1382 99°82:88 BACKUP SREISTAALE. B30e1 390 (39) | \ 
08 A 11F TSTL  P_RVN : 4676 | 
0 BNEG 18$ : | 
02 f 100125 188:  CMPB (AP), #2 : 4678) 
1€ 001 BGEQU 19S : 
SA 1 p 120A MOVL #1, R10 : 
4 12D BRB : i 
SA 08 Ac 00 12F 19$:  MOVL_ P_RVN, R10 : | i 
51 3 § 1 3 O$:  ADDL3 #28, ATL, RI t 4679! i 
1 9a 001 MOVZBL (R15, R : i 
10 AE 0 C1 0013A RO, SETCOUNT, 16(SP) : i 
A b 13F RVN + 4677 | i 
058¢ 31 00141 BRW 7 ; : i 
$1 6 0 gi 146 21$:  ADDL3 #4 mr, R1 ; 4682 | i 
1 9A 00148 MOVZ 5 : i 
59 SA 0 ¢3 O48 SUBL3_ RO, RVN, RO : 
Hf: 4 €1 0014 ADDL MTL, R2 : | : 
8 6240 D0 001 3 MOVL (R2SCROJ. VCB ; i 
00000000" EF 58 0 01 MOVL  VCB, CURRENT_VCB ; ‘ 
06 AB A 01 : MOVE VN, 6(VCB) + 4683 : 
A DD 0016 PUSHL VN + 4684 
ECB4 CF 1 FB 0164 CALLS #1, SWITCH_VOLUME ; i 
0 AE 0 D 169 MOVL ANNEC 3 i 
FF7C 3 CD 74 BF 9A 0160 MOVZBL #116, DESC + 4688 
80 AD 84 AD 9E 091 MOVAB DEVICE_CHAR, DESC+4 + 4689 i 
7E 7¢ 00178 CLRQ = = (SP) + 4690 i 
FF7C CD 9F OO17A PUSHAB DESC : i 
E D4 00175 CLRL = (SP) ; 
18 AE 0D 0180 PUSHL CHANNEL ; i 
000000006 00 FB 0018 CALLS #5, SYSSGETCHN F : 
06 =A 0 DO 0018A MOVL RO, STATU ; i 
04 AE €8 0018 BLBS STATUS, 22$ + 4691 i 
04 AE DD 0019 PUSHL STATUS : 4693 : 
20 AB 9F 0019 PUSHAB 32(VCB) ; i 
o1 DD 00198 PUSHL # 3 : 
000000006 8F DD O19, PUSHL #BACKUP$_GETCHN ; i 
000000006 00 04 FB 140 CALLS #4, LIBSSIGNAL : i 
1. 04 AC 01 OO1A7 228: CMPL MObE. #1 + 46% i 
0B ie O1A8 BNEG 23$ ; ‘ 
00000000' EF 95 001 TSTB QUAL +8 : 
3 19 0018 BLSS 23$ 3 i 
050¢ 31 18 BRW ; 
0214 CE 9F 00188 23$: | PUSHAB HOME BLOCK ; 4699 | 
84 AD 9F 0018C PUSHAB DEVICE CHAR : 
0 AE DD 001BF PUSHL CHANN : | 
F833—CF Q FB ice CALLS #3, READ_HOMEBLOCK F 
01 A D1 001C CMPL =saRVN, #1 + 4705 
05 13 OOICA BEQL 4$ : 
00f 31 OO1CC BRW $ $ i 
50 6E E ci 1CF 248:  ADDL3 #30, MTL, RO : 4708 
6 0234 CE 90 103 MOVB HOME BLOCK +13, (RO) : 
01 221 ce 91 108 CHP HOME “BLOCK +1 . wi > 4709 | 
01 9 of 1DF CMPL EICOUNT. #1 ; 4712 | 
D 12 BEQL $ ; | 
000000006 8F DD 00184 PUSHL ACKUP$_INCSETCNT + 4714 
000000006 00 1 FB OO1EA CALLS #1, LIBSSIGNAL ; 
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=a 
00E2 3! 358 BRW 40$ 3 47 | 
50 023c CCE 6s: MOVZUL HOME BLOCK +40, RO + 47 
6 AC i BLB MODE. + 4718 | 
00000000" EF STB QUAL +8 : 
1 BLSS _-27$ : 
TSTL =o + 4721 
BEQL § $ : 
20 Aa 9 PUSHAB 32(VCB) + 4722 
000000006 BF bp BUSH — RBACKUPS. VOLINSET : 
000000006 00 3 F CALLS #3, LIBSSIGNAL : 
11 BRB 288 + 4718 
30 D 27$ TSTL + 4726 
D 1 BNEQ 28$ : 
023A E g 0 IST HOME _BLOCK+38 + 4727 
50 6 1 ¢1 00 ADDL3 #49, MTL, RO : 4728 
6 1 88 00 BISB2 #1, (R ; 
50 023A CE 3C¢ 28$:  MOVZWL HOME BLOCK +38, RO + 4739 
02 6¢ 1 00 CMPB CCAP): + 4731 
: 1F 00 BLSS 3 
51 6E 1 C1 00 ADDL3 #49 wt R1 : 4732 
4C 61 £8 00 BLBS (R15, 35$ : 
01 9 D1 0023F 298 CMPL seTCOUNT. #1 + 4737 
09 12 00 BNE $ : 
0D 00 TSTL =o + 4739 
1c 13 00 BEQL 328 ; 
01 20 Bi 00 CMPW sO, #1 + 4740 
g 11 00 BRB 31$ : 
SA 0 01 00 308: CMPL RO, RVN + 4742 
12 13 00 1$: BEQL ; 
20 AB 9F 00 PUSHAB 32(VCB) > 4745 
1 DD 00 PUSHL F 
000000006 8F DD 00 PUSHL ACKUP$_INCRVN : 
000000006 00 3 FB 00 CALLS #3, LIBSSIGNAL : 
5 023¢ ce 3C 00264 32$ MOVZ2WL HOME BLOCK+40, RO + 4752 
01 D1 00 CMPL SETCOUNT, a : 4750 
9 1 BNEQ 5 : 
0 05 00 TSTL RO : 4752 
1 13 00 BEQL $ 3 
01 : B1 00 CMPW =—s«RO, #1 : 4753 
11 00 BRS 34 3 
59 g D1 00 338: CMPL 9 SETCOUNT ; 4755 | 
13 34$:  BEOL § : 
000000006 8F DD PUSHL  #BACKUPS$_INCSETCNT : 4758. 
000000006 00 1 Fe CALLS #1, LIBSSIGNAL : 
18 1 BRB 37§ > 4731 
5 p 358: STL R > 4763 
1 BEQL 3 : 
5A 0 p MOVL RO, RVN > 47 
06 AB A MOVE RVN, 6(VCB) > 476 
50 6 0 ¢ ADDL3 #48, MTL RO > 4768 
6 A 9 MOVE RYN. (ROS ; 
.-¢§ BRB 3 > 47 
07 «AB 0 88 368: BISB2 #16, 7¢(VCB) > 47 
56 6E 34 : $:  ADDL3 #36. MTL, R6 > 477 
66 FF48 = CD C 28 #12. HOME _BLOCK+460, (R6) : 
| 
a 


n 4 | 
16-Sep-1984 00:42: AX=-11 Bliss-32 V4.0<74 Page 113 
STR 'AOUNT’ = Gount volume for stand-alone use easeb-1one $hiec:68 — Fakcnupesaeistanteso3o07 fied 
40$ 3: 4705 
A 023A CE 10 5 tS AP 38$ CMPZV #16, HOME _BLOCK+38, RVN : 1388 
t Ye Bose ged gg is 
be FFGB OED : ; if CMPC fie. HOME _BLOCK+460, (R4) ; 
20 AB 9F 002C4 398 PUSHAB 32(VCB) : 4790) 
1 DD 002C7 PUSHL ; 
oo000000. 99 2000006 EB ¢? Peete Bef EUBSelOMAY ; 
: #i2, HOME BLOCK+472, 56(VCB) + 47% 
oP as rF3e S 0221 i i DD _ cis fone, BUOERS'S. #2 ; 4797 
af 31 0 ES 41$ Br $82 $3 7(VCB) 4 
07 02 f te E1 002EB C Ag HOME _BLOCK+42, 42$ : tBos 
. i a ees : 
04 AB 02 CE B0 0 FB 42$:  MOVW HOME BLOCK+14, 4(VCB) : 480 
50 0 3 CE 3c re MOVZWL HOME-BLOCK+14, RO + 480 
51 0 CE 3¢ 0030 MOVZWL HOME BLOCK +32, R1 F 
52 6146 DE 00308 MOVAL  (R1) R2 F 
1A 52 5 930¢ MOVW R2, 26¢VCB) : 
5 0234 (CE 3c 00316 MOVZWL HOME _BLOCKs32 RO + 4804 
i thaws 4 Ce OB SO atA move fone RO, COLvCB) eg) + 4805 
rich Mane soci cf ue $0320 CERO =(SPJ , : 4812) 
7E D4 03 2 CLRL  =(SP) F 
50 0240 ¢ ee 0324 MOVZWL HOME BLOCK +32 RO ; 
eat beso 9F 00329 PUSHAB @HOME_BLOCK+24(R0J : 
7E 0200 8F 3C 003 MOVZWL #512, =(SP) : 
8 AE 9F 03 5 PUSHAB HEADER : 
7E 7C 00336 cLRas = F 
at aes : 
30 AE DD 00330 PUSHL CHANNEL : 
7E D4 00340 CLRL sis?) ; 
aa a a 2 
D 04 AE €9 00340 LBC STATUS, 43$ + 4813 
04 AE F8 AD Fe 1 MOVZWL 10SB, STATUS : 
14 04 AE €9 00 36 LBC STATUS, 43$ > 4814 
FC96 CCF fF 035A PUSHAB INDEX _FILE_ID : 
i3 AE 9F 0 3 PUSHAB HEADER : | 
—BS0 CF ; F é CALLS #2, VERIFY_HEADER : 
=: 04 30 08 b3GA BMS STATUS” ees ? 4815 
me BE Ons ass: CRG HGP} i Mba 
E BD i PUSHL WOME BLOCK+8 ; 
7E 0360 F c 0 7 MOVZWL #512, -(SP) : | 
ce OE Ft OOsre PUSKAS HEADER cy 
F8 3 OF PUSHAB 10SB : 
ie DD PUSH Fel om 
” E Be L (SP) 3 


N 4 
STAACP Standalone ACP 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 Page 114) 
voo~000 STA_MOUNT = mount volume for stand-alone use 12286871382 99:82:88 {BACKUPS SRE STAALP O34 (393 | 
000000006 00 F A CALLS #12, SYS$Q10W F | 
8? AE of 08 et MOVL RO, STATUS : 
2 04 AE : BLBC STATUS, 44$ > 4825) 
04 AE F8 AD § 99 MOVZWL 10SB, STATUS : | 
1E 04 AE i 9 BLBC STATUS, 44 : 4826 
Fae CF SF OO3A PUSHAB INDEX FILE_ID + 4829. 
18 AE 9F OO3A PUSHAB H : 
EBOB CF : F A CALLS #2, VERIFY_HEADER : 
04 AE D A MOVL RO, STATU : 
1F 04 AE 5 B BLBS § STATUS, 45$ + 4830 
04 AE 0810 &8F ( B MOVZWL #2064, STATUS : 
1 4 AE E B BLBS STATUS, 45$ + 4833 
4 AE DD 003C0 44$ PUSHL STATUS + 4835 
0 AB 9F 003C PUSHAB %32(VCB) : 
1 0D 00 Cb PUSHL : 
000000006 8F DD 003¢ PUSHL #BACKUP$_NOINDEXF : 
000000006 00 4 FB 00 cE CALLS #4, LIBSSIGNAL : 
fe es Rea — 
24 AE OF 09 DB PUSHAB HEA ER : 
FOC? cr 0 FB 03D CALLS #5, CREATE_WINDOW : 
3 04 AC E 003E BLES MODE, 47 + 4842 
O2DA 31 OO3E7 46$: BRW 69$ : 
00000000' EF 95 OO3EA 47$:  TSTB  QUAL+8 ; 
F5 19 003F0 BLSS 46 ; 
07 AB 0D 88 O03F2 BISB2 #13, 7(VCB) + 4859 
7E 1c AB 08 C7 003F6 DIVL3 #8, 28(VCB), -(SP) + 4860 
000000006 00 01 FB 003FB CALLS #1. GET_VM F 
10 AB 50 BO 0402 OVL RO, 16(9CB) ; 
7E 7C 00406 CLRQ = = ( §P) + 4867 
7E D4 00408 CLRL = = (SP) : 
14 AB DD DO40A PUSHL  20(VCB) F 
7E 1c AB 08 C7 0040D DIVL3 #8, 28(VCB), =(SP) ; 
10 AB BD 00412 PUSHL  16(VCB) : 
7E 7C 0 41 CLRQ. = =(SP) ; 
F8 AD 99F 00417 PUSHAB 1088 : 
21 DD OO41A PUSHL # ; 
30 AE DD 0041C¢ PUSHL CHANNEL : 
7E D4 OO041F CLRL. = (SP) : 
000000006 00 OC FB 00421 CALLS #12, SYS$QI0W : 
04 AE 50 09 0428 OVL 0, STATU : 
09 04 AE E 042¢ STATUS, 48$ : 4868 
04 A FB AD 3C 004 MOVZWL 10SB, STATUS : 
1 4 AE EB 4 L STATUS, 49$ + 4869 
4 AE DD 00439 48$:  PUSHL STATUS > 4871 
20 AB 9F 0043C PUSHAB 32(VCB) : 
DD 0043F PUSHL #1 : 
000000006 8F DD 00441 PUSHL #BACKUP$_READIMAP : 
000000006 00 4 FB 00447 CALLS #4, LIBSSIGNAL : | 
re oe aaeas “OH ao} Lan 
50 1¢ ap 00001000 8F C7 004 DIVL 74096 28(vCB), RO ; 
on BREE Bilha fHaase. oo 
7E 028 BF 3C 004 é MOVZWL pie -(SP) ; 
28 «AE OF 4 PUSHAB HEADER : | 
7E 7C OO46A -( : 


5 
ACP 18-se -1984 00:42: AX-11 Bliss-32 V4.0-74 P 1 
= mount volume for stand-alone use 1 ~3007 138% 00:32:83 EBACKUP SRC ISTAACP B32; age 133 
F8 AD OF 0046C PUSHAB 10s : | 
21 OD 0046F PUSHL @ : 
30 AE DD 00471 PUSHL CHANNEL : 
7E 04 00474 CLRL isp) : 
000000006 00 of F 476 CALLS #12, SYS$QI0W : 
4 AE DO 0047D MOVL RO STATUS : | 
2 04 AE : 481 BLBC STATUS, 50$ + 4880. 
04 AE F8 AD ¢ 485 MOVZWL 10SB, STATUS : 
1E 04 AE £9 O048A LBC «STATUS, 50$ + 6881 | 
FB68 CF OOF 004 PUSHAB BITMAP_FILE_ID + 4886 | 
18 AE 9F 004 PUSHAB HEADER ; 
EAIC CF 9 FB 0049 CALLS #2, VERIFY_HEADER : 
04 AE DO 0049A vL STAT : | 
1F 04 AE 5 49 STATUS, 51$ + 4885 | 
04 AE 0810 &8F c O4A MOVZWL #2064, STATUS 3 
1 4 AE E8 004 BLBS Tus, 5 + 4887) 
4 AE BD O4AC 50$:  PUSHL ATUS >; 4889 | 
0 AB 9F OO4AF PUSHAB 32(VCB) ; | 
oi DD 00482 PUSHL #1 : | 
000000006 8F DD 00484 PUSHL #BACKUP$_NOBITMAP : | 
000000006 90 04 FB 004BA CALLS #4, LIBSSIGNAL : 
0 15 AE 9A 004C1 51$:  MOVZBL HEADER+1, RO + 4891 | 
58 14 AEGO 3E 004C5 MOVAW HEADERCROJ, MAP_POINTER : 
000000006 00 if 004CA JSB GET_MAP_POINTER : 4892 
56 p 00400 ECL COURT + 489 
50 04 AB 3C 004D2 MOVZWL 4(VCB), RO ¢ 489% | 
50 F4 AD CO 90406 ADDL2 DEVICE.CHAR+112, RO ; 
50 bf O4DA DECL 3 
51 04 AB 3¢ 0040C MOVZWL 4(VCB), R1 + 4895 
50 51 €6 004E0 DIVL2 R1, RO : 
50 OFFF CO SE 004E3 MOVAB 4095(RO), RO + 4894 | 
50 00001000 SF C6 00468 DIVL2 #4096, RO + 4895 
50 56 D1 OO4EF CMPL COUNT, RO + 4894 
12 13 004F2 BEQL $ : 
20 AB OF Oo4rs PUSHAB 32(VCB) + 4896 
o1 DD 004F7 PUSHL #1 ; 
000000006 8F DD O04F9 PUSHL #BACKUPS NOBI TMAP ; 
000000006 00 03 FB OOGFF CALLS #3, LIB$S : 
C AB 01 A? 9E 00506 52$:  MOVAB  1(R7), 12(VCB) : 4897 
4 AB 56 80 00508 MOVW COUNT, 52(VCB) : 4898 
57 7C 00508 CLRQ BITS § + 4901 
53 01 CE 00511 MNEGL #1, QBN + 4902 
00DD 31 00514 BRW 61§ ; 
7E 7C 00517 53$: CLRQ -=(SP) : 4911 
3 D4 00519 CLRL = = (SP) F 
Oc BB43 2F 00518 PUSHAB @12(VCB) (VBN) ; | 
7E 0200 =F HN 051F MOVZWL #512, -(SP) : 
28 «AE ODF 09 4 PUSHAB BUFFER ; 
7E 7C 00507 CLRQ = =( SP) ; 
F8 AD 9F 00529 PUSHAB 1088 : 
21 OD 0052¢ PUSHL # : 
30 AE DD 0052e PUSHL CHANNEL ; 
7E D4 1 CLRL rt ; 
000000006 00 o¢ F 3 CALLS #12, SYS$Q10W : | 
06 =A DO 0053A MOVL RO, STATUS F | 
06 AE : 03 : BLBC STATUS, 54$ : 4912. 
04 AE F8 AD 3C 0054 MOVZ2WL 10SB, STATUS : | 
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ACP 16-5 -1984 00:42: AX-11 Bliss- 4.0-74 
= mount volume for stand-alone use ~300 1382 90:32:88 YBACKUP SRE Staate o3ee] 


1 
15 4 AE EB 00547 BLB STATUS, 55$ 
4 AE BD 4B 54$ PUSHL STATUS 
0 AB 9F 0054 PUSHAB ¢(veB) 
000000006 : BD pusHt FBACKUPS READBMAP 
F CALLS #4, LIBSSIGNAL 
000000006 00 4 FB 2 i CALL as $$ 
¢ 04 369 368: CLRLCéXK 
50 14 ASE: D0 005 $: MOVL BUF FERC]. RO 
14 AES2 DF 00569 PUSHAL BUFFERLJ 
1 54 EF 0560 EXTZV. K, #1, a(SP)+, R1 
1 7 € 2 BLBS pits_ser, 58$ 
2 33 Ooae Beat 60s 
68 51 £9 b255 BLBC 3=Es-«aR'1,, ‘59 
g 01 BO 057¢ MOVL #1. BITS_SET 
23 O¢ 057F ASHL #12, VBN; RO 
5 0S 78 00583 ASHL #5, J, Ri 
50 51 cO 00587 ADDL2 R1. RO 
50 54 ¢0 0058A ADDL2 Kk, RO 
44 04 AB 3C 0058D MOVZ2WL 4(VCB), FIRST_SET 
55 50 4 00991 MULL2 RO, FIRST_SET 
4 11 00594 BRB 
FFFFFFFF 8F 73 Fb 58$: sror yen #-1 
42 51 £8 00598 BLBS 1, 59$ 
57 Ds 9 5A2 CLRL BI S_SET 
53 0c 78 005A4 ASHL #12, VBN, RO 
52 05 78 005A8 ASHL #5, J, Ri 
50 51 ¢O 005ac ADDL2 Ri. RO 
50 54 ¢? OOSAF ADDL K, RO 
51 04 AB %3C 00582 MOVZWL 4(VCB), R1 
50 51 C5 00586 MULLS R1, RO, LAST_SET 
55 be 0588 PUSHL FIRST_§ 
10 AE 55 C¢ 90580 SUBI. FIRST SET, LAST_SET, -(SP) 
ECFE CF 02 FB 3C2 CALLS #2, FREE BLOCKS 
58 06 005C INCL EXTENT_COUN 
00000064 8F 38 D1 005¢9 cMBL ase #100 
20 AB OF 9040 PUSHAB 32(VCB) 
01 od 005D PUSHL #1 
000000006 8F DD 0040 PUSHL #BACKUPS$_DISKFRAG 
000000006 00 03 FB 005DD CALLS #3, LIB$SIG 
1 1f F1 6 3E4 59$: ACBL @ j wi. k, 5 
1 0000007F Ly F1 OOSEA 60$: ACBL #iz?, wi, J, 56$ 
3 : F2 005F4 61$:  AOBLSS COUNT, VBN, 62$ 
0 11 00558 BRB : 5 
FFIA 31 OOSFA 63s: BRW $ 
16 57 £9 005FD 63$:  BLBC BITS SET, 64$ 
55 bp 0600 PUSHL FIRST SET 
50 04 AB C 06 MOVZWL 4(VCBY, RO 
5 5 c 6 MULL2 RO, R6 
rf o¢ : 6 ASHL #12, R6, R6 
6 C3 0060D SUBL3 FIRST SET, R6, -(SP) 
ECAF (CF 02 FB 00611 CALLS #2, FREE_BLOCKS 
OOAB 31 0616 64$: BRW 69$ 
12 04 AC £9 00619 65$:  BLBC MODE, 66$ 
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| STAACP Standalone ACP 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 Pp 17) 
‘Vot“660 STA_MOUNT = mount volume for stand-alone use 1 23e0= 138 99:82:88 BACKUP.SRC STAACP 03044 ade te 
20 ap 9F 0061 PUSHAB 32(vcB) : 4960 
| 000000006 BF DD PUSHE  #BACKUPS_ ODS2SAVE : 
| 000000006 00 5 F CALLS #3, LIBSSIGNAL ; | 
4 AB 1 80. f 66$: MOVW #1. &(VCB) + 4961 
1A AB 0214 2 ADDW3 #2, HOME BLOCK, 26(VvCB) t 4962. 
0214 CE 3 A MOVZWL HORE BLOCK : 4963, 
1c AB ¢ F ASHL  #12,°RO0, 28(VCB) : 
E 7C 00644 CLRO 30s = (SP) : 4970 
re 4 46 CLRL 0s = (SP) ; 
50 0222 ce 10 9C 0064 ROT #16, HOME BLOCK+2, RO ; 
1 0220 a3 ¢ 45 MOVZWL HOME BLOCR, RI : 
61 F 0065 PUSHAB (R1)CR : 
7E 0200 8F 3C 00656 MOVZWL #512, =(SP) : 
28 AE OF 00658 PUSHAB HEADER : 
7E 7C 0065 CLRQ = SP) : 
FB AD OF 0066 PUSHAB 1088 : 
21 DD 0066 PUSHL @# : 
30 AE DD 0066 PUSHL CHANNEL ; 
7E D4 00668 CLRL at : 
000000006 00 oc FB 0066 CALLS #12, SYS$Q10W : | 
06 A DO 00671 VL —_ RO, ATUS : 
2 04 AE 4 0675 STATUS, 67$ + 4971) 
04 AE F8 AD 3C 006 MOVZ2WL 10SB, STATUS : 
1€ 04 AE 9 b0675 STATUS, 67$ > 4972) 
FOGE CE OOF 006 PUSHAB INDEX FILE_ID 3 4975 | 
18 AE 9F 00686 HEADER : | 
£828 CF 02 FB 00689 CALLS #2, VERIFY_HEADER 3 
04 AE 5 D0 O68E RO, STATUS ; 
1F 06 AE : 069 STATUS, 68S : 4976) 
04 A 0810 8F 3C 00696 MOVZWL #2064, STATUS F 
1 04 AE ES 0069C TATUS, 68$ : 4978 | 
4 AE bb 006A0 67$: PUSHL TATU : 4980. 
0 AB 9F 006A PUSHAB 32(VCB) : 
1 DD 006A PUSHL #1 : | 
000000006 8F DD 006 PUSHL  #BACKUPS_NOINDEXF ; 
000000006 00 FB 006 CALLS #4, LIBSSIGNAL ; | 
7 1 70 00685 68$: MOVa #1. -(SP) + 4981 
B DD 688 PUSHL VCB : 
01 bb BA PUSHL #1 ; 
24 =O F 0068C PUSHAB HEADER : 
EDE6 CF 0 fe 68F CALLS #5, CREATE_WINDOW : 
02 6¢ 91 006C4 69S:  CMPB (AP), #2 + 4984. 
: 1F 06¢7 BLSSU 70 F 
50 6 1 C1 006C9 ADDL3 #49, MTL, RO > 4985 | 
9 60 £8 006CD BLBS 71 : 
01 A 10 AE F2 00600 70$:  AOBLSS 16(SP), RVN, 72$ + 4677 
6p 71$: = RET + 4987 
FA6B 31 00606 72$: BRW 21$ : 4677 


; Routine Size: 1753 bytes, Routine Base: CODE + 1324 | 
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MOUNT OUTPUT = dismount output volume 1$-sSe0-1984 90:82:63 Yanckbe sae istaatecose 


ZSBTTL "STA_DISMOUNT_OUTPUT = dismount output volume’ 
GLOBAL ROUTINE STA_DISMOUNT_OUTPUT (P_RVN, CONTINUE) : NOVALUE= 


144 


! FUNCTIONAL DESCRIPTION: 
This routine is called at the completion of an image restore operation 
and at the completion of each sequent vet disk output volume 
to finish certain perce of the file structure: ndex file bitmaps, 
storage bitmaps, the quota file, and the VOLSET.SYS file. 
! INPUT PARAMETERS: 
: P_RVN (optional): resent, specifies RVN to dismount 
bsent, dismount entire set 
indicating save set volume will be continued 
indicating last volume in set 


He 
a 
CONTINUE (optional): | 


J 

1 

' 

' 

' 

1 

' 

' 

' 

i 

! IMPLICIT INPUTS: 
OUTPUT _MTL - Pointer to MTL for output volume set. 
! OUTPUT PARAMETERS: 
: NONE 

! IMPLICIT OUTPUTS: 
NONE 

! ROUTINE VALUE: 

} NONE 

' 

! 

' 

] 


i SIDE EFFECTS: 
NONE 


BEGIN 

LOCAL 
RSA: VECTORCNAMSC_MAXRSS BYTE), ! Resultant string area 
vCcB: REF BBLOCK, ! Pointer to VCB for volume 
SAVE _wWCB, ' Saved window from MTL 
BUFFER: BITVECTORL4096], ' Block buffer 

: BBLOCKEF 1BSC_LENGTHI, 

FIB_DESC: vECTOR(2), ' Descriptor for FIB 
STATUS, ' Status variable 
10SB: VECTORC4,WORD); ! 1/0 status block 

BUILTIN 
ACTUAL COUNT; 


' First scan the VCB's to make sure that all the volumes were 
' actually initialized. If we're dealing with a degenerate save set, 
: some may have been missed. 


CURRENT _MTL = .OUTPUT_MTL; 
INCR RVR 


FROM (IF ACTUALCOUNT() EQL 0 
THEN .CURRENT_MTLCMTL_RVN_BASE) 
ELSE .P_RVN) 


ce 


ROUNT OUTPUT = dismount output volume 1-00-1984 99; $f: BACKUP SRESS thal b:B30, 


TO ren spe at rahe Qa 0 
y -MTLLMTL_RVN_BASEJ+¢. CURRENT_MTLCMTL_SETCOUNTIJ-1 


Sh Ad 
eked 
> 
o 
nn- 


¢ Use PLR 
? bo 
5 ve = “evcotye aad: Leg’: -RVN=. CURRENT _MTLCMTL_RVN_BASE J); 
g Then | -vCBLVCB I 
SIGNAL ( (BACKUPS “HOVOLDATA, 1, VCBCVCB_DEVICE)); 


: Save the accessed file, if any, and do other initialization. 


dave wCB = CURRENT is WINDOW); 
wel eft tMTL 

He 

= 

,F 


WOONONA OODONAOW 


WSU 


PE ee tee ee te pee! 
Oo 
wD 
= 
o> 
oo 


SSETSSTETE 


3 re : Rebuild the quota file. 

: 354 

3 rk “QUAL CQUAL -0F 11] AND NOT QUAL QUAL_VOLUJ AND 

3 44 .DQF _QUOTA_F IDCFIDSW_NUM) Ni 

3 5 070 THEN 

3 208 071 BEGIN 

3; 354 2078 P 

3; 3548 07 BUFFER: BBLOCK(512]; ! Block buffer 
3; 3549 5074 LOCAL 

3; 3550 2072 FAT: BBLOCKCFATSC_LENGTHI, ' Quota file attributes 
3; 3551 878 ATR_DESC: BBLOCK(12); ! ACP attributes List 
3 226 4 GLOBAL REGISTER 

; 355 28 DOF _BUFFER= 11, 

3; 3554 07 DOF _RECORD= 10: REF BBLOCK, 
3; 3555 080 DOF _VBN= 9, 

3 228 081 DOF “DEFAULT _PERM= Le 

3; 35 ORs DOF “DEF AULT— _OVER= 3 

5 328 0 

3; 355 0 

3 309 . 5 Access the quota file. 

: 35 08 CURRENT = . CURRENT MILCATL_ vcB(0)); 

; 568 " HY RSA mpestlO) = NAMSC_MARRS 

3 20? : zy “Soe scaupronc*:ASCOOOODDIQUOTA.SYS:1"), 

3; 356 Fp O3¢ DESC. 

3 35 Comat VCBLVCB_DEVICE)); 

: 35 094 FIBCFIBSL_ACCT CTL ort GSM WRITE OR FIBSM NOURITE; 
3 3570 5 FIBCFIBSW-FID_NUM) = .DOF_QUOTA_FIDCFIDSW_NUM]; 

3 3571 FIBLFIGSW-FID~SEQ) = .DOF~QUOTA~F DEF ID$W~SEQ); 

3 276 FIBCFIBSW"FID-RVN) = .DQF-QUOTA FID FIDSW- RVNJ; 

; 357 9 ATR_DESCLO.0.16,.0) = ATRSS_RECATIR; 

3; 3575 199 ATR_DESCL4, 3 0] = FAT; 

3 3576 1 ATR_DESC(8,0,52,0) = 0; 


roe 8 


Standalone ACP 18-se “19 AX-11 Bliss-32 V4.0-74 
STA_DISMOUNT_OUTPUT = dismount output volume =300- 1982 99: 32: 83 YBACKUP.SRCIS STAACP.832; 
fa § STATUS = Bicwed 
. ee UNstte~ RECESS on OR IOSM_ACCESS, 
Pp 5 1osBs S$B= fosB 
P pis f B BDC 
If STATUS" THEN étatus = .10$8C02; 
i NOT .STATUS 
1 | EGIN 
} SYGNAL (BACKUPS. OPENOUT + STSSK_ERROR, 1, RSA_DESC, .STATUS); 
1 END; 
15 
i 
: : Scan the quota file to record the quotas in the quota table. 
i8 bor _DEFAULT_PERM = : 
0 DOF grEAULT Ud a 
1 INCR VBN F TO ROTC. FATCFATSL_EFBLK], 16) - 1 DO 
¢ BEGIN 
: : Read a block of the quota file. 
P $ Status = $$010W 
& UNC= 198 TREADVBLK, 
P : CHAN: STA_OUT CHAN, 
P 10S6, 
e 0 a738 UEFER: 
& 1 . z (ge, 
=.V ); 
j If Statue THEN STATUS = .10SB(0); 
If NOT .STATUS 


uw 


N 
SIGNAL (BACKUPS_READERR + STSSK_ERROR, 1, RSA_DESC, .STATUS) 
og BUFFER TO BUFFER+512-DQFSC_LENGTH BY DQFSC_LENGTH DO 


REF BBLOCK; ! Pointer to quota file entry 


P: 
LOCAL 
Q: REF BBLOCK; ! Pointer to quota table entry 


: Scan the quota entries in the block to extract the quotas. 
if .PCDQFSV_ACTIVE) 
THEN 


OODNOUSWN OOO 


ee ee ee me ee a a ae ed ed ed dd ed od dd dd dD 


PAAADAMNN ES BB EEE EEE 


POONA BREE REE EE EEE EE BAAR BAA AAA 


BEGIN 
: a -PCDQFSL_UIC] EQL 0 
8 
4 Bcele -DEFAULT_PERM = .PCDOFSL_PERMQUOTA]; 
: Dar SDEFAULTIOVER = .PCDQFSL-OVERDRAF TI; 
bor’ mat) vIC< =PCD DOFSL_UIC)); 
8 ScDor _PERMQUO DOtVAS PCOQFSL_PERMQUOTA); 


rane 30 


SE 


t Output = dismount output volume 18-00-19 99:82:83 BACKUP SREIS ST tate o3004 Page 15) 
SL BOF LOVERORAET = .PCDQFSL_OVERDRAFTI; 
END; 
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ee 


! Ensure that the allocated size of the quota file is sufficient for the 
records to be written into it. 


if ROT(.FATCFATSL_HIBLKI, 16) LSSU .DQF_COUNT / (512/DQFSC_LENGTH) 


BEGIN 
1 7 acta QUOTAF ILE); 


FUNC=10$ ~PEACEESS 
CHAN=S T_CHANS ; 
RETURN; 
END 


SOS FAAS 


: Rewrite the quota file. 


et a st tt 2 dd a bs bs bs sd a a a a a a a a ss a a 2 4 a 


$56 Ewsr1L1 (0 512, BUFFER); 

3 DOF -purFeR = DGF_RECORD = BUFFER; 

B38 IF “DoF Root NEQ 0 THEN DOF_WRITE_ENTRY(.DQF_ROOT); 

561 

B66 } Flush out the last block. 

b6 if .DQF_RECORD NEQ .DOF_BUFFER 

665 THEN 

666 BEGIN 

667 Pp STATUS = $$010W( 

668 P UNC= 10s -WRITEVBLK, 

669 P Chane STA~OUT_CHAN, 

570 P 10SB=10S6, 

671 P Pi= DOF _BUFFER, 

57 P peed 

57 P3=,DOF_VBN); 

57% DOF_VBN = .BOF VBN + 1; 

575 IF TSTATUS THEN STATUS = .10SBCO); 
IF NOT .STATUS 


N 
SIGNAL (BACKUPS_WRITEERR + STSSK_ERROR, 1, RSA_DESC, .STATUS); 
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é END; 

as 

568 Deaccess the quota file and rewrite the end of file pointer. 
S68 FATCFATSL of fObK? = ROT(.DQF_VBN, 16); 

3685 BE STAT 

SY. Pp Func=108 DEACCESS, 

56 P CHAN=STA 038 T_CHAN, 

1088 p poses 10S 


IF Status? Desc tratus = .10SB(0); 


8S 


SROUNT OUTPUT = dismount output volume Leet 99: $f: 83 BACKUP SRE Staate 8355 Pane 36) 


if nor » STATUS 

2 re et * STSSK_ERROR, 1, RSA_DESC, .STATUS); 

! Finish the VOLSET.SY My file. It may be incorrect if any volume Labels were | 
4 
4 
4 
4 


: 


SESPAEZ BS 


—- 

o8 
a 

o 

—o@ 


E i 
: changed by /NOINITIALIZE. 


URRENT _MTLCMTL SETCOUNT3 GTRU 1 AND 
CcoONT() EQ 


SSLESRANVLSSS 


P 
BUFFER: VECTORE BYTE); 


: Access VOLSET.SYS file on RVN 1. 


CURRENT ¥ Bs . CURRENT 1 hl -vCB(0)); 
AA best OJ = NAMSC_MA 


wv escmiprent* 1asceeeood3van set.svs;t* ), 


“OOONOUS WMO 


ENDER DID cc a ed aed ed ed 


wn 


( 
ACCESS OR IOSM_ACCESS, 
=10s6, ~ 


=F I1B_DESC); 
IF .STATUS THEN STATUS = .1OSBCO); 
IF NOT .STATUS 


N 
SIGNAL (BACKUP$_OPENOUT + STSSK_ERROR, 1, RSA_DESC, .STATUS); 


SSNs 


wWn— 


| 
F1BSM_NOWRITE; 
| 
| 
| 
| 


we 


Initialize volume set name. 


CHSCOPY(VSLSS NAME, COM_O_STRUCNAME, 0, 512, BUFFER); | 
ay Vv SESC_LE LENGTH; | 


SNS SSN SS SNS SSNS SS SSNS SSS 


= 
oo 


eee)” eee 1 TO .CURRENT_MTLCMTL_SETCOUNT] DO 


vuvv 
PUP DVDV PULPOSUS ULPVSPTIUSUDUSUDUSDUSDVSVSVSUIVSVSUSUSUSUSVSUSVSUSVSUSVSISUSISUSISISISIOSISIOSIOSIOSIOSIOSIOSIOIOIIC «| O ? 


oO AAO RS SS wb abies ee aa an. 


; If block is full, write it and reinitialize. 


e 
of 


5 
A Surput = atsnoune ovtout vouune  WCHSS-HSEE SHSSE:E2  WAMGLLOPLeNcHbats Os 
iP GEQU 512 


Pd 
o 


BEGIN 
STATUS = $$Q10w( 
FUNC=10$_WRITEVBLK, 
CHAN=STA-OUT_CHAN, 
Pr SBUFFER, 
= c 
Poesic. 
P3=.VBN) ; 
STATUS THEN STATUS = .10SBC0); 
NOT STATUS 


SIGNAL (BACKUPS_WRITEERR + STSSK_ERROR, 1, RSA_DESC, .STATUS); 


vuvuvUD 
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FI. S 4 
SSLEARANLS SHUR Pov Saou 


PWN NINN NAIA WAI IAAI BBB BEE EE BUTT 


F 
F 
HE 


H Reinitialize buffer, pointer, counts. 


765 ! 
4 prer LL e, 512, BUFFER); 
76 P = 0; 
768 VBN = .VBN + 1; 
769 END; 
770 
771 
ae H Initialize VSL entry. 
774 CHSMOVE ( 
775 00 VSL$S_NAME 
77 01 BBLOCKE . CURRENT MTLCMTL_VCB(.RVN=.CURRENT_MTLCMTL_RVN_BASEJ)J, VCB_VOLNAME), 
77 0g BBLOCK BUFFERC.P), VSLST_NAMEJ); 
1a 0 
80 P = .P + VSLSC_LENGTH; 
B3 END; 
i 
, ; : Write last block. 
? Pp STATUS = S$$Q10W( 
A dA P FUNC=10$_WRITEVBLK, 
7 Pp CHAN=STA~OUT_CHAN, 
fers 
= 9 
4 passione 


P5=.VBN); 

IF .STATUS THEN STATUS = .10SB(0); 

IF ad STATUS . 
SIGNAL (BACKUPS_WRITEERR + STSSK_ERROR, 1, RSA_DESC, .STATUS); 

: Deaccess the file. 


$a10u( 
FUNC=10$_DEACCESS 
CHAN=STA~OUT_CHANS; 


vw 
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TACDISROUNT OUTPUT = dismount output volume  Je-Sep-19be S1:Se:68  FeackuP’Sneistaatesooe4 Page 15S 


Fs 
s% 


f this is a ] of ? save set, it may be an Sesoreasy - pue et tged 
olume. If it is being continued, we want to mark 
oosely onolee volume set. Loop through the home Saas to do this. 


RENT_VCB = .CURRENT_MTLCMTL_VCB(0)]; 
AE TURE DUNT () GEQ 2 
-P_RVN EQL 1 


>3 Sst 


» CONT INUE 
. CURRENT. VCBLVCB_NOTVOLSETJ 


td i tt 


BUFFER: BBLOCK; ! Block buffer 


: Access the index file on RVN 1. 


CURRENT MTLCMTL WINDOW) = .CURRENT_VCBLVCB_INDEXF J; 
ESCCO] = NAMSC_MAXRSS; 


SOE SERIETORC® LASCOOOOOOIINDERF .$¥831°), 


NAVE WN © OONAOUS wiry 


pT ae aay oe Nara 


RSA DESC, 
CURRENT _VCBCVCB_DE vic CE)) 
CURRENT_WCB™= .CURRENT_MTLCM fL_wINDOW); 


FUSS 


; Loop, reading home blocks from the index file. 


er tvs 


on FROM 2 TO .CURRENT_VCBCVCB_CLUSTERI*3 
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vvvv 
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zess 
= 
@ 
mm 
o 
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BEGIN 
STATUS = R_W_VIRTUAL( 


9 
0 5 
1 8. 
4 8 10$_READVBLK, 
4 osé, 
845 70 
6 71 ; 
BUFFER, 
8 12, 
.VBN) ; 
50 SWAITFR(EFN=0); 
51 IF .STATUS THEN STATUS = .10SBC0); 
3 g If NOT STATUS 
34 29 SIGNAL (BACKUPS$_READERR + STSSK_ERROR, 1, RSA_DESC, .STATUS); 


Sn 


IF NOT CHECKSUM (BUFFER, SBYTEOFFSET (HM2$W_CHECKSUM 
OR NOT CHECKSUM2 (BUFFER. S$BYTEOFFSET (HM su ~EHEEKSUM2) ) 
THEN SIGNAL (BACKUP$_INVHOMBLK, 1, RSA_DESC) 


PUPVPVLVDVDVLUDVPUDUPUDVSVDPVUSVSU SISSON 
SANS 
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woowovovo 
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one ACP 1b-se $ep-1984 00:42: AX-11 Bliss-32 V 
MOUNT_OUTPUT = dismount output volume ~3607 1382 99:82:83 BACKUP’ SREISTAACP: 
: Write RVN and volume set name into home block and re-checksum. 


prob HM2$W_RVN] = 


: Write back the updated home block. 
i = R_W_VIRTUAL( 
10$_WRITEVBLK, 
= s6, 
0. 
Byer FER, 
12 
. VBN 
SWAITFR( tei N=0); 
TOT ATUS THEN STATUS = -10S8(0); 
IF NOT . STATUS 
" SIGNAL (BACKUPS _WRITEERR + STSSK_ERROR, 1, RSA_DESC, .STATUS); 


CURRENT_MTLCMTL_WINDOW] = 0; 
END; 


: Do each volume in the volume set. 
in NCR R 
FROM Ur ACTUALCOUNT() EQL 0 

THEN opunneet UATLEMTLS _RVN_BASEJ 


EL 
TO ad ACTUAL COUNT ¢ TQ) EQL 0 
THEN *BORVAD MTLCMTL_RVN_BASEJ+. CURRENT _MTLCMTL_SETCOUNTJ~-1 


ELSE 

BEGIN 

LOCAL 
vCcB: REF BBLOCK, ! Pointer to VCB 
CHANNEL, ' Channel assigned to volume 
OFFSET, ! Offset to bitmap block 
ACB: REF BBLOCK; ' Pointer to ACB 


Sry}! ¥ Bs = VCB = pCURRE NT MTLCMTL_VCB(.RVN-.CURRENT_MTLCMTL_RVN_BASEJ)); 
estco NAMSC_MAXRSS; 


7} Sea nigemenmeneneianeteth -SYS;1"), 
RSA_DESC, 


(HM2$S Siruchine URRENT piLcane b og TRUENANE BUF FERCHM2$T_STRUCNAME J) ; 
EHECKSUNG (BUFFER YTEOF Peet (HAS 
CHECKSUM2 (BUFFER, SBYTEOFFSET (HM2SW_ ~EHEEKSUM2) >; 


m5 

a tandalone ACP 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 
soe STR OLSROUNT OUTPUT = dismount output volume 12-8601 382 90:42:88 EBACKUP SRE STAACP .B32; 
3 338 tte VCBCVCB_DEVICE)); 

; 39 44 CHANNEL = SQITCH_VOLUME(.RVN); 

: 395) £03 

; i § +28 : Write the index file bitmap. 

> 3925 p 54 0 STATUS = $Q10W( 

3; 39 $ P 54 FUNC=]0$_WRITELBLK, 

3; 39 P 54 § CHAN=. CHANNEL, 

3; 39 : P 54 10SB8=10SB8 

; 39 P 5454 Pi=.vCBCVCB_IMAP), 

3; 39 P 5455 bes-vee VCB_MAXFILIDX] / 8, 

; 3931 4 $ P5=.VCBLVCB_ IMAP ‘we 

; 39 : 45 IF .STATUS THEN STATOS = .{0SBC0); 

s , +28 IF NOT .STATUS 
: +4 5 re44 SIGNAL (BACKUPS_WRITEERR + STSSK_ERROR, 1, RSA_DESC, .STATUS); 
; 39 46 
3 Rte ie Initialize for writing storage bitmap. 
: 3940 5465 OFFSET = -1; 
3: 3941 466 ACB = evestvce ACB_FLINKI; 
; 96¢ . 467 RSA peSCLO = RAMST_MAXRSS; 
: Bee . rts SOESCO TE TERT” IASC OSSOOSION TRAP 87831"), 
> 3946 P ae RSA-DESC, 
3 Bee 2078 vCB[VCB_DEVICE)); 
: 3949 5474 
3 Bae 307? } Loop for each ACB in the queue. 
: 395 2059 UNTIL REMQUE(.VCBCVCB_ACB_FLINK], ACB) DO 
1 pUE tee 
3 3955 5480 4 ! Loop for each affected bit in the bitmap. During the loop, N is the 
3 32 eee) ? } offset within the storage bitmap of the affected bit. 
325 sab é IncRu ACBCACB LBN] / .VCBCVCB_CLUSTER) 
: 960 485 4 t0 -ACBLACB_LBN) / ‘ veBEW CR CCUSTERS + .ACBCACB_COUNT] / .VCBCVCB_CLUSTER] - 1 
3 96¢ it BEGIN 
: 964 489 ! If the current bit is not within the current bitmap block, 

3 5 490 ! write out the completed block, if ery initialize a new one, 
; 966 491 i and pass zero blocks until we reach he right one. 
: tse 438 UNTIL oN<12,20> LEQ .OFFSET 
; 390 495 6 BEGIN 

3; 3971 rt | 6 IF .OFFSET NEQ -1 

: $97 ton THEN BEGIN 
: 3974 p 5499 7 STATUS = $010W( 

> 3975 Pp 5500 7 FUNC=10$_WRITELBLK, 


} 
roe 8s 


: Free the index file bitmap buffers. 


FREE vn vCBEVCB MAXFILIDXJ/8, .VCBCVCB_IMAP}); 
vce VCB_IMAP) = 0; 


nN 5 
STAACP Standalone ACP -$ep-1984 00:42: AX-11 Bliss-32 V4.0-74 Pp 7) 
- STA_DISMOUNT_OUTPUT = dismount output volume 12-808=1 382 99:82:63 BACKUP.SRC STAAL B30e4 age 15) 

: 397 P 5501 CHAN=. CHANNEL, 

: 397 P ; f 10S8=10SB, 

: 397 P PI=BUFFER, 

3; 397 P 4 7 Pg | 

; 3980 5 7 P3=.VCBCVCB_BITMAP_LBN] + OFFSET); | 

: 3981 2 6 7 IF .STATUS THEN’STATUS= .10SBL0); 

: 398 7 IF NOT .STATUS 

; 398 508 7 THEN 

; 984 209 f an SIGNAL(BACKUPS_WRITEERR + STSSK_ERROR, 1, RSA_DESC, .STATUS); 

; Hy } 

; 986 2} 4 CHSFILL(O, 512, BUFFER); 

; 398 21 OFFSET = .OFFSET + 1; | 

; 3988 1 END; 

; 3989 514 

: 3990 515 

3 a4! 2218 2 Set the appropriate bit to record the free cluster. 

: 399 5518 5 BUFFERL.N<0,12>] = TRUE; 

: 3994 5519 4 END; 

3 3995 5520 4 

3 38 5521 4 

; 399 55 4 4 !' Free the ACB. 

: 3998 38 4 i 

: 3999 524 4 FREE_VM(ACB_S_ENTRY, .ACB); 

: 4000 33 5 END; 

: 4001 5 6 

: 400 55 

3; 400 528 ! Flush the Last block, if any. 

: 4008 268 UNTIL OFFSET GEQ .VCBCVCB_BITMAP_SIZE] 

: 4006 5531 : . ’ 

: 400 353¢ 4 BEGIN 

: 4008 5533 4 IF .OFFSET NEQ -1 

: 4009 5534 4 THEN 

: 4010 5535 5 BEGIN 

: 4011 p 5536 5 STATUS = $Q10W( 

3 401¢ Pp 3337 5 FUNC=10$_WRITELBLK, 

: 401 p 5538 5 CHAN=. . 

: 4014 Pp 5539 5 10SB=10SB, 

: 4015 P 5540 ° PI=BUEFER, 

: 4016 P 5541 Pee 12 

: 4017 9342 3 P3=.VCBCVCB_BITMAP_LBN] + ,OFFSET); 

; 4018 554 IF .STATUS THENSTATUS~= .10SBL0); | 

: 401 544 IF NOT .STATUS 

: 4020 545 THEN 

> 4021 246 SIGNAL (BACKUP$_WRITEERR + STSSK_ERROR, 1, RSA_DESC, .STATUS); 

7 40 : 5547 4 END: | 

: 402 3348 4 CHSFILL (0, 512, BUFFER); 

+ 4024 549 4 OFFSET = .OFFSET + 1; 

+ 4025 550 END; 

3 40 $ 551 | 

: 40 358 

3 55 

; 554 | 

: 3339 
| 
| 
| 
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} Restore the accessed file, if any. 
CURRENT .MTLCMTL_WINDOW = ,SAVE_WCB; 
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®t aes 
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AC 34 0 ; 
6¢ 0 
1 is 0029 
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w$ep-1986 11:36:03 


P.AAJ: .ASCII 


-BLKB 1 
P.AAI: .LO 


s 
P.AAL: .ASCII 


enw 
a> 
n> 


‘A 


P.AAK: 
P.AAN: 


*-UW 
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wL 
-ADDRES 
ASCII 
-BLKB 
. LONG 
“ADDRESS 
ASCII 
-BLKB 
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P.AAM: 
P.AAP: 


ou 


- AAN 


P.AAO: 
P. AAR: 


n 
nn 
Se ee Fee 2a - 


ow 


“ ADDRE 
“ASCII 
.BLKB 
P.AAQ: LONG 

“ADDRESS P.AAR 
ENTRY 


7,R8,R9 
MOVAB Roa, 


MOVL output mes CURRENT _MTL 


is 
CURRENT MIL, RO 


P_RVN, R2 

TSTB CAP) 

BNEQ © 3$ 

CURRENT_MTL, RO 


mo 
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7 
BACKUP. SRC st AACP.B32; 


\!ASC0000002QU0TA. 
J 

000000] VOLSET.SYS;1\ 
$£500000 INDEXF .SYS:1\ 
'ASCOOQOOOJINDEXF .SYS;1\ 


- AAP 
!ASCO00000IBI TMAP. SYS; 1\ 


BTA CeO ork Save R2,R3,R4,R5,R6,- 


2 V4.0- ¢ 


SYS;1\ 


Pete Se Se Se Se Se Se Se Ge Se Se See Se See Se Be Be 
vw 
So 
> 


6 | 
STAACP Standalone ACP 1b-se -1984 (0:42: AX-11 Bliss-32 V4.0-74 P 9 
$00-500 STA_DISMOUNT OUTPUT = dismount output volume 1 =300 71382 10:02:83 EBACKUP’ SREISTAACP. B32, age 18) 
28 11 00048 BRB 6$ : 
1 00000090" EF DO O004A S$: OvL ¢ RRENT_MIL, R1 + 5050 
Al 9A l MOVZBL 48(R1),~RO : 
50 50 C SUBL3 RO, RVN, RO : | 
34 A140 0 9 MOVL = RI) CROI, v¢cB : 
12 07 A 0 F é BBS #2, 7(VCB). 6$ : 5051) 
20 AS 5F 0006 PUSHAB 3 (vce) ; 5052. 
e j 
000000006 8F DD be8 PUSHL #BACKUPS NOVOLDATA : 
000000006 0 3 FB 0006 CALLS #3, LIBSSIGNAL : | 
D1 2 4 3 00075 68: AOBLEQ R4. ARVN, 5$ + 5041) 
000000 9° EF 06 907 MOVL URRENT MTL, R7 : 5057 
oc AE A? D 8 MOVL (R7), SAVE.WCB : 
8 A7 p4 08 CLRL (R7) 1 5058 
00000000" EF FFOO CD OE 088 MOVAB RSA, RSA_DESC+4 : 5059 
“8 OE te KE SF 00096 MOVAB’ PIB’ FIBTpESC#4 3009 
0040 8F 6E * 00 2c tt moves #0, (SP)7 #0, #64, FIB : $68) | 
03 00000000' EF £0 00A BBS #6, QUAL+15, 8$ ; 5068 | 
022D 31 OOOAC 7$: BRW 4$ : 
F6 90000000" EF E8 OOOAF 8$: BLBS  QUAL+14, 7$ : 
00000000" EF 85 00086 TSTW  DQF_QUOTA_FID : 5069 
EE 13 000BC BEQL ; | 
00000000" eF 34 A? DO 000BE MOVL  52(R7), CURRENT_VCB > 5087 | 
00000000" EF FF BF 9A 00066 MOVZBL #255, RSA : 5088 
7E 00000000' EF 20 1 oo0cE ADDL3 #32, CURRENT.VCB, -(SP) : 5093 | 
00000000" EF SF 000D PUSHAB RSA_DESC : | 
00000" EF 9F o000¢ PUSHAB RSA DESC : 
FE92 «CF OOF ~QOOE PUSHAB P.AAI F 
000000006 00 94 FB OO0E6 ALLS #4, SYSSFAO ; 
4C. AE -0101.—«s BF. s3C-OOOED SC MOVZWL FIB : 5094 | 
50 AE 00000000" EF 06 OO0F3 MOVL  DQF_QUOTA_FID, FIB+4 : 5095 
54 AE 00 Bop. fr B Boece MOVW DQF QUOTA_FID+4, FIB+8 : 5097) 
10 AE 0004002 F DO 9019 MOVL #262176, ATR_DESC : 5098 | 
16 AE 1¢ AE 9E 00108 MOVAB FAT, ATR_DEST+4 ; 5100 | 
18 AE 04 0011 CLRL ATR DESC8 : 5101 | 
7E D4 0011 CLRL = : 5107 
16 AE 9F 0011 PUSHAB ATR DESC : | 
7E 7¢ 0011 cLRa = : | 
7E D4 OO11A CLRL = = (SP) ; 
58 AE OOF OO1IC PUSHAB FIB DESC : 
7E 7C OO11F CLRQ. ss =( SP) : 
56 AE OF 91 1 PUSHAB 10SB : | 
7E BF 9A 00124 MOVZBL #114, -(SP) : | 
OOO2FFFF 8F DD 00128 PUSHL #196607 ; | 
E 04 001 CL -(SP) ; 
000000006 90 ¢ FB 001 CALLS #12, STA_Q10W ; | 
D0 001 MOV RO, STATOS : | 
5 13A BLBC = STATUS : 5108 
3c AE 3 01 MOVZWL 10SB, STATUS ; | 
1 56 €8 00141 BLBS STATUS, 10 : 5109 | 
56 DD 00144 9S: PUSHL STATUS : 5112 | 
00000000" EF 9F 00146 PUSHAS RSA_DESC : | 
DD 0014¢ PUSHL # : 
000000006 8F DD 14k PUSHL #BACKUP$_OPENOUT+2 : 
000000006 00 FB 0015 CALLS #4, LIBSSIGNAL : 
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0 53 
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50 00000000° cf 
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000000006 
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Wag LIBSSIGNAL 


BUFFER, R2 

Pie FERSAE0, R4 
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_DEFAULT_PERM 
“DEFAULT OVER 


v--evU 


WMA nun 
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—VU2- &F foo 
~~ 
Mme 


VBN, 11$ 
FAT+4, R1 
apt count. RO 
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ed ad a AY 
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#BACKUPS_QUOTAF ILE 
#1, LIBSSIGNAL 
-(§P) 

-(SP) 

-(SP) 
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# 
ot 

#12, STA_Q10W 

#0, (SP), #0, #512, BUFFER 
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4 
STAACP Standalone ACP 16-5e =| 742: AX-11 Bliss-32 V4.0-74 
vO4 STA_DISMOUNT_OUTPUT = dismount output volume 1 met 1 99:32:63 BACKUP. SRC JSTAACP 93359 
C CE 8 
A it E 9 MOVAB BUFFER, DOF_RECORD 
A p HOVL DOF RECORD. DOF _BUFFER 
L ROOT, 
0 00000000' f BOVL af ROOT, RO 
0 oD F PUSH 
E37A cr &. 41 CALLS #1, DQF_WRITE_ENTRY 
B A p 46 208:  CMPL DOF RECORD, DOF _BUFFER 
49 4 BEQL 2$ 
7E 7C 00248 CLRO 0s = (SP) 
: D4 00240 CLARL © =(SP) 
pp 4F PUSHL DQF_VBN 
7E 0200 BF 3¢ 1 MOVZWL #512, =(SP) 
B BD 9 6 PUSHL DQF BUFFER 
— 7C CLRQ. = SP) 
5¢ Ar 9F 0025A PUSHAB 1058 
DD 0025p PUSHL #4 
OOO2FFFF BF DD 0025F PUSHL #196607 
E D4 00 65 LRL isp) 
000000006 99 ¢ FB 0 6 CALLS #12, STA_QIOW 
6 D VL RO, STATOS 
9 Dg 0 INCL DQF_VBN 
07 6 : 027 BLBC STATUS, 21$ 
$ 3¢ oA ¢ 0276 MOVZWL 10SB, STATUS 
1 26 E8 0027A BLBS STATUS, 22$ 
6 DD 00270 21$:  PUSHL STATUS 
00000000' EF 9F 0027F PUS RSA_DESC 
1 Dd 00 85 PUSHL 
000000006 8F DD 00287 PUSHL #BACKUPS_WRITEERR+2 
000000006 99 04 FB 9 8D CALLS #4, LIBSSIGNAL 
24 «AE 9 40 ¢ 0 34 228: ROTL #16, DOF _veN, FAT#8 
146 «AE BF 0298 PUSHAB ATR_DESC 
7E 7C 0029€ CLRQ 2s = (SP) 
7E 7C 002A CLRQ = (SP) 
7E 7€ 00 CLRQ = (SP) 
5C AE OF O02A4 PUSHAB 10SB 
DD 002A7 PUSHL 
OOO2FFFF BF DD 002A9 PUSHL #196607 
E 04 9 AF CLRL. = (SP) 
000000006 90 ¢ F B1 CALLS #12, STA_QIOW 
DO 00288 VL = RO STATOS 
9 6 é BB BLBC STATUS, 23$ 
6 3¢ Ar 4 B MOV2WL 10SB, STATUS 
1 3 E ¢ BLBS STATUS, 24$ 
6 DD 002C5 238 PUSHL STATUS 
00000000' EF 9F O02C PUS RSA_DESC 
1 DD 002CD PUSHL 
000000006 8F DD O02CF PUSHL #BACKUP$_CLOSEOUT+2 
000000006 F DS CALLS #4, LIBSSIGNAL 
29 00000000" EF p rs 248: ROVE UAR NT_ATL, RO 
a3 A 002E GTRU $$ : 
" ! £? $35 ao (AP) 
°5 3 EE BNEQ 25% 


PIU SO ce OP tate ey /. 


STAACP Standalone ACP -$ep-1984 00:42: AX-11 Bliss-32 V4.0-74 Pa 2 
y0e-000 STA_DISMOUNT_OUTPUT = dismount output volume 132888- 1382 99:82:88 BACKUP. SRC STAACP Big3es7 aft it 
$O080880: f 34 Ag 3 f HOVE : are CURRENT _vcB : $308 
7E * €F 4 1 ADDLe URRENT.V _VCB, =(SP) + 524 
990000 ' EF F PUSHAB : | 
' €F OF PUSHAB RSA Hi : 
FC fF OF SHAB P. : 
, me | 101 BF Se ie soy dun 5387). es = 5246. 
$6 a 000600 F 06 5 Vi 4495820" FIB+4 + 5247. 
4 AE 1 : d vw #1, F1B+8 + 5249 
E C 1 CLRQ 0 = ¢ §P) 3 5254 
7 CLRQ = = (SP) : 
E CLRL ss = (SP) : 
58 AE OOF PUSHAB FIB_DESC : 
7E 7C A CLRQ = = ( SP) : 
56 AE OF C PUSHAB 1058 ; 
7E fF OA MOVZBL #114, =(SP) : 
OOO2ZFFFF BF DD 43 PUSHL #196607 : 
E D4 0034 CLRL isP) ; 
000000006 00 . se CALLS #12, STA_Q10W : 
5 0 D VL = RO STATOS : 
g é § BLBC = STATUS, 278 ; 5255) 
g 3c. AE ¢ MOVZWL 10SB, STATUS : 
1 26 E 5¢ BLBS STATUS, 28$ : $356 
6 BD SF 278 PUSHL STATUS : 5258) 
00000000" EF 9F 1 PUSHAB RSA_DESC ; 
1 OD 00367 PUSHL #1 : 
000000006 8F DD 00369 PUSHL #BACKUP$_OPENOUT+2 ; 
0000006 00 fB $f CALLS #4, LIBSSIGNAL : 
0200 8F 00 00000000° EF meta oe 2c i 288:  MOVCS #12, COM_O_STRUCNAME, #0, #512, BUFFER ; 5263, 
8 40 er 9A MOVZBL .P + 5264 | 
1 00 VL VBN : 3 65 
0 00000000" EF p VL g ENT _MTL RO : 5268 
SA 1F AQ A MOVZBL 31(RO),"R ; 
57 D4 36 CLRL RN : 
00 1 0039 BRW 33$ ; 
00000200 = &F D1 298:  CMPL PP, #512 : $273 
1F BLSSU 32 : 
— 7¢ CLRQ = = SP) : 5282. 
43 D4 Me CLRL 0s = (SP) ; 
; D PUSHL veN ; 
7E 9200 F 3C OO3AA MOVZWL #512, -(SP) : 
00A0 cE F 003A SHAB BUFFE ; 
C 0038 cLRa = ; 
5C AF 9F 0038 PUSHAB 1058 : 
DD PUSHL ; 
OOO2FFFF BF DD OO3BA PUSHL #196607 ; 
000000006 99. ; re iH CALLS #13. STA glow 
09 ¢ VL RO, STAT : 
3C i i ef Soy euL Ha a esed 
1 D BLBS STATUS, 31$ > 5284. 
ALE sos, Feta : 52a 
00000000" EF 9F 003D PUSHAB RSA_DESC ; 
1 DD 0030E PUSHL # : 


Se 


“OUTPUT = dismount owl iets ep-19be 91:56:08 — EBAckuesSaeSstaace:032; Poe dO) 


000000006 DD HBACK URITEERR+2 : 
000000006 Ee CALLS L18$S1G : 
g? + fe i 318: Move 50. tsp). i #512, BUFFER : 5291 
D4 005F CLP ¢ 5292 
cad 0 9 tet VBN 3 3338 
oe F FB 328: novi, ¢ cn) “RG me R1 : 1) 
s “taf | : ret tt a 
34 Ald A MOVL ri) : 
008C CE48 38 - of ! moves Hie, "8 5.9 BUF FERCP) : so 
FF7A 57 3 A f 33S: ACBL R10 oA. Pan, 298 ee 
— 7C CLRO (SP) : 5317) 
43 D4 CLR. =tap) : 
7E 9300 F 3 MOVZWL yei2 -(SP) : 
AO E F PUSHAB BUFFER : 
C CLRQ. 0 = SP : 
5C af oF SHAB 3 
DD 004 PUSHL F 
OOO2FFFF a 2 04 PUSHL rt 607 : | 
000000006 90 C FB 0043 CALLS #2, STA Q10W : | 
6 D 46 VL RO, STATOS ; | 
0 6 i 4 BLBC STATUS, 34$ ; 5318) 
36 3c. AE ¢ 4 MOVZWL 10SB, STATU ; 
’ $3 Ge boces ses: Pete Sta : 3337. 
00000000" EF 9F " PUSHAB- RSA_DESC : | 
000000006 BF bb o04sp PUSHL BACKUPS WRI TEERR®2 fst] 
000000006 00 FB a CALLS #4, LIBSSIG ; | 
— 7C 0046A 35$: CLRO -<§P) : 5328) 
7E 7C 0046C CLRQ 0 = (SP) : 
7E 7¢ CLRQ = =( SP) : 
7E 7C cLRQ = ; 
7E 4 70 0047 mova a3 =-(SP) : 
OOO2FFFF BF DD 0047 PUSHL #196607 : | 
E D4 00478 CLRL sf PDs F 
900000006 98 00000000" EF pe bbtee 368: Rove? fuRhent’ 2 5336. 
00000000° FF 9 AO "MOVE Cue CURRENT_VCB : 
6¢ CPB P), & ; 5337 
016¢ f 3z3: BRW : 
01 04 aC D1 98 38$: CMPL P_RVN, #1 : 5338 | 
3 Ac £9 Oca] BLBC CONTINUE, 37S t 5339. 
5} 00000098" FF bo A MOVL CURRENT vcB, RI i 3 | 
- 03 AD 00000000" FF 4 8 BOVE 3 La 8(RO) 2 5349 | 
000000" EF FF 8F 9A 00489 mOvZ ay RSK DESC : 38 
7€ iittdtt Ht 1 004C1 ADDL “CURRENT “VCB, =(SP) : 38 
90000000" EF 9F 0049 PUSHAB RSA. DESC ; | 
EF 9F 004C PUSHAB RSA“DESC : | 
FADF CF 9F 0040 PUSHAB P.AAM : | 
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0090 


PUSHAB BUFFE 
000000006 0 CALLS Ls 


eae ga 

CALLS #2, ERECKSUM2 
PUSHL 

MOVZWL #512, -(SP) 
PUSHAB BUFFER 


7 p20 


000000006 F CALLS SySst FAO 
98 00000000° oF 9 MOVL CUAREN Rent ent 
00000000" €éF AO D MOVL (RO), CUR duty wee 
00000000" EF p F MOV CURRENT ycB, RO 
A ¢ F6 MOV RO), R 
os ¢ FA UL , Rb 
L 
oor BF 9050) 4. Biv ok 
7E 9200 FH C MOVZWL , anes? 
94 cE F A PUSHAB 
— 7¢ CLRO urreR 
50 F F PUSHAB 1058 
pp 1 PUSHL #4 
EB34 F 3 ‘s i fires Rt W_VIRTUAL 
f 50 BD ie MOVL STATUS 
: D4 0051F CLRL 
000000006 99 : Fe 1 CALLS #1, SYSSWAITFR 
9 5 BLBC STATUS 40$ 
6 3c OCA ¢ MOVZWL 10SB, STATUS 
13 3 E F BLBS STATUS, 41$ 
6 bb 2 40$ PUSHL STATUS 
00000000 EF 9F PUS RSA_DESC 
000000006 : DD ¢ PUSHE seen READERR*2 
cauecse SE Beh one, fae Bg time 
0090 CE 9F 00548 PUSHAB 
000000006 09 Fe 4F CALLS + EHECKSUN2 
1 56 LBC 
ore F %3¢ 39 MOVZWL Hie o2($P) 
0090 CE OF PUSHAB 
LL ' a 
000000006 0 f 3 CALLS Fe CKSUM2 
1 E 6 BLBS 
00000000' f oF f 428 PUSHAB of _DESC 
000000006 8F DD 0057 PUSHL seers INVHOMBLK 
(000 Oo” te i BB o0881 438: HOV there 
5 00000000' €&F p MOVL CURRENT. MTL, RO 
FECC CD 24 «=A C moves aig. 36TRO). BUFFER+460 
aA 
Al 
A6 
Bt 
ee 
BC 
C 
¢ 
¢ 
CA 


us TE 
000000006 00 4 
He 

: 


F 
E 
E CLRO =(SP) 
50 f oF PUSHAB ne 
bp PUSHL 4&4 
EA86 F 5 ie CALLS 9: P W_VIRTUAL 
56 0 D0 MOVL RO, STATUS 
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000000006 


04 


50 


00000000° 
00000000' 


000000006 


EOIF 
08 


7E 1¢ 


000000006 
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00000000' 
000000006 


i eataeee * {i 
28 etc. ‘ 
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9 04 


29 eneeas 9 


m— moorm 


50 1 
50 
AE 
0 
AE 04 ; 
01D 
1 00000000" € 
0 30. OA 
9 5 
A 34 A14 
EF 3 
EF FF 
$8 AA 
4 448 2 
0000000" €E 
F960 
00 
CF 
AE 
7 
14 AA 
AA 08 
10 AA 
7E 
5C 4 
30. AE 
7E 


par. 
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on 
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-(SP) 

“i SYSSUAITER 
TATUS, 44 
10s8. Status 
TATGS, 45 

RSA_DESC 

ft 


CKUPS WRITEERR+2 
#4, LIBSSIGNA 


VBN, 39S 
CURRENT ATL, RO 
B(RO) 


47$ 

¢ RRENT MIL, RO 
(RO), "RO 

P_RVN, R9 

(AP) 

49$ 

CURRENT MTL, RO 

48(RO),~R1 

31(RO). RO 

=(RO), 4(SP) 


P_RVN, 4(SP) 
RYN 


66$ 

CURRENT MTL, R1 

H a RO 

Bo tA TRON vcB 
CURRENT VCB 

A_DESC 


#1, SWITCH_VOLUME 
RO, CHANNEL 


) 
SBCVCB), -(SP) 
yo 


‘ 
Cael 


a 
STATUS, Ys 


3$ 3¢ 


00000000" 
000000006 


0 
? 
EF 


58 04 
A? 
50 04 
A7 
6€ FF noes 
7 
14 
8F 
oc 
7E 0200 
00A0 
5C 
30 
56 
ae 
7 
00000000" 
000000006 
00 
6E 
008C 
oc 
cE 
6E 
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#12, #20, N, OFFSET 


eosossss 
SoooOOO OOOO OOOO OOOO OOOO 
SNSaorsneew 


SNS 


=(SP) 
ai 2«vce)Corrser3 
#512, =(SP) 
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ww 
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#BACKUPS val TFERnce 
#0, (SP), #0, #512, BUFFER 
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; Routine Size: 2094 bytes, Routine Base: CODE + 1A9C 


Dd 007 PUSHL A 5 5526 
DD 007 PUSHL # : 
000000006 00 Q £8 7 CALLS #2, FREE_VM : | 
FF 7 BRW : 5477 
58 34 AA 10 5 é th 628 cHPZV #0, #16, S2(VCB), OFFSET 3 5530) 
FFFFEFFF 6 8F 8 7A CMPL OFFSET, #1 + 5533 
4 7B BEQL 4$ : | 
i t 0078 CLRG = =( SP) + 5542) 
—E D4 007B4 CLRL 0s = (SP) : 
, BAGB 9F 186 PUSHAB @12(VCB)COFFSET) ; | 
7E 02 8F 3C OO7BA MOVZWL #512, =(SP) : 
A ce F 007BF PUSHAB BUFFER : 
— 7C 007C CLRQ. 0 =( SP : 
SC AF 9F 007C PUSHAB 1088 ; | 
20 dD O07C SHL @ $ 
30 AE DD OO7CA PUSHL CHANNEL : 
7E D4 007CD CLRL. = (SP) : 
000000006 90 ¢ FB OO7CF CALLS #12, SYS$Q10W : 
& DO 00706 OVL 0, STAT 3 : 
07 6 : 0709 BLBC STATUS, 63$ + 5543 
5 3c. OA ¢ 7D MOVZWL OSB, STATUS : 
1 56 EB OO7E BLB STATUS, 64$ + 5544 
56 DD OO7E3 63$ PUSHL STATUS : 5546 
00000000" EF 9F 007E5 PUSHAB RSA_DESC : 
1 DD 00768 PUSHL #1 ; 
000000006 8F DD O7ED PUSHL  #BACKUP$_WRITEERR+2 ; 
000000006 00 04 FB OO7F CALLS #4, LIBS L ; 
0200 8F 00 6E 00 2C OO7FA 64$ movcS #0, (SP), #0, #512, BUFFER : 5548 
00sc «CE 0801 : 
5B D6 00804 INCL OFFSET : 5549 
99 11 0806 BRB 62$ : 5530 
10 AA oD 0808 65$ PUSHL  16(VCB) : 5555 
7E 1¢ AA 08 C7 008 DIVL3 #8, 28(VCB), -(SP) ; 
000000006 00 02 FB 0081 CALLS #2. FREE_VM ; 
10 AA D4 0081 CLRL 16 ¢VCB) : 5556 
FE21 59 01 04 AE F1 OO81A 66$ ACBL 4(SP), #1, RVN, 51$ : 3422 
50 00000000' EF 00 00821 MOVL CURRENT tt rb : 556 
08 Ad OC AE 00 00828 MOVL § SAVE_WCB, 8(RO) ; 
4 00820 RET + 5563 
| 


Sitio ERRTATERGwt®2 etamoune tnput volume HEscorsags Q0:62:98 YateHE SLUSH YO race 138 
SBT 


TL sere eth = dismount input volume’ 


t 
TA, 
3; 4040 1 
: ¢ 1 } GLOBAL ROUT STA_DISMOUNT (P_RVN) : NOVALUE= 
3; 4 4 1 t+ 
3 4044 1! 
3; 4045 § 1 ' FUNCTIONAL DESCRIPTION: | 
3 rt 94 1 This routine is called after reading a volume of sequential 
; tee f ; disk. to clean up the disk dependen data structures. 
; docs 2 1 i INPUT PARAMETERS: | 
; 4050 7% 13 P_RVN (optional): + present, spec tf ies RVN to dismount 
; $82) ie } f absent, dismount entire set 
: 2088 ii IMPLICIT IN INPUTS: 
3 e822 2 } : - Pointer to MTL for input volume set. 
; 4096 280 1 | INPUT PARAMETERS: 
088 2B) yi psig 
; 4059 558 ; IMPLICIT INPUTS: 
> 4061 33 5 1i 
3; 406 384 1 ! ROUTINE VALUE: 
3; 406 44 1! NONE 
3: 4064 5 1! 
3; 4065 589 1 ! SIDE EFFECTS: 
3 4066 590 1! NONE 
. ore | 
> 4069 298 1 
3; 4070 2238 BEGIN 
: 4071 595 3 LOCAL | 
3 rt té S208 ACB : REF BBLOCK; ' allocation control block 
: 4074 2295 
3 rt 44 e23p : Free the index file window. 
; 4077 2600 CURRENT VCB = .CURRENT_MTLCMTL_VCB(.P_RVN-.CURRENT_MTLCMTL_RVN_BASE})); 
3 4078 260¢ DELETE _QINDOW (.CURRENT_VCBLVCB_INDEXFJ); 
3 rt tt CURRENT_VCB vee. INDEXFJ™= 0; 
; rest 5605 : Free the index file bitmap buffers. | 
: 608 5607 if .CURRENT_VCBLVCB_IMAP) NEQ 0 
3 4084 608 THEN 
: 4085 5609 BEGIN 
: 4086 5610 FREE_VM(.CURRENT_VCB vCcB MAXFILIDX]/8, .CURRENT_VCBCVCB_IMAP)); | 
3 4087 61 CURRENT_VCBLVCB_IMAP) = 0; 
3; 4088 61 END; 
3; 4089 61 
3 4090 614 ' Free any ACB's lying around. 
: 4091 615 ‘ 
: $055 oi¢ 
; 4094 o ae NOT REMQUE (.CURRENT_VCBSCVCB_ACB_FLINK], ACB) | 
3 4095 $18 BEGIN | 
3 40% 5620 FREE_VM(ACB_S_ENTRY, .ACB); 
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71986 11:56:08  EGAckUPcSRESSTAACP-B3 


lone ACP 16°$ 
SMOUNT = dismount input volume 14-5 
END; 

: Clean up the VCB and MTL. 


CURRENT_VCB 


CURRENT VCBLVCB_ODS_2) = 0; 
VCB"INIT DONE = 0; 


CURRENT VCBLVCB_SAVESET) = 0 


Fo oy ot oF of of of ot ot ot ot at ot 
QLESRANVLSSSS 
WWII AIA ROPUROPURUTUTND 


FW“ OVONOUS WN 


6 
3 
é CURRENT-VCBLVCB-NOTVOLSET] = 0; 
g DELETE_WIND (CURRENT MTL CATL WINDOW) ; 
: ° CURRENT_MTLCMTL_WINDOW]”= 0; 
10 6 END; 
001¢ 00000 .ENTRY STA_DISMOUNT, Save R2,R3,R4 
54 000000006 00 9€ 9000¢ MOVAB FREE_VM, R4& 
53 00000000' EF 9 9000 MOVAB CURRENT.VCB, R3 
5] FC OAS p 0010 OVL CURRENT_ATL, R1 
50 30 Al OA 90014 MOVZBL 48(R1),~RO 
50 04 aC 50 ¢3 00018 SUBL R09 P_RVN. RO 
5 34 a4g DO 90010 MOVL  52¢(R1TCROS, CURRENT_VCB 
00 : DD 000 : PUSHL  @CURRENT V 
E6F8 CF 1 FB 000 CALLS #1, DELETE WINDOW 
50 63 D0 990 A MOVL § CURRENT_VCB, RO 
60 04 0002D CLRL —_ (ROD 
10 AO 05 90 F TSTL  16(RO) 
11 13 00032 BEQL «=s«s1$ 
10 Ad db 00034 PUSHL 16(RO) 
7E 1c = AO 08 C 00 7 DIVL a8. 28(RO), =(SP) 
4 0¢ FB 003¢ CALLS #2. FREE_VM 
0 63 DO 0003F OVL § CURRENT_JCB, RO 
10 Ad D4 00042 CLRL  16(RO) 
50 63 DO 00045 1$: OVL _ CURRENT_VCB, RO 
52 28 B80 OF 00048 REMQUE @40(RO)> ACB 
9 1D d04¢ VS 2$ 
6 DD 00 aE PUSHL ACB 
10 0D 0005 PUSHL #16 
64 02 it a038 CALLS 2. FREE_VM 
50 eS pO 8 2$: MOVL CURRENT VCB, RO 
07 AO 3 A A BICB2 #30, 7(RO 
50 as A D0 é ROVE URRENT ATL, RO 
£6B8 CF 01 FB 0006 CALLS #1, DELETE WINDOW 
50 FC OAS OO 006A MOVL CURRENT MIC, RO 
08 Ad 04 00 6f CLRL (RO) 
4 000 RET 


3 Routine Size: 114 bytes, Routine Base: CODE + 22CA 
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N 6 
dalone ACP 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 P 40. 
DISK - make save set sequentia sk read 14-Sep- 254: BACKUP.SRCJSTAACP.832; 7 2 2) 
Y DIS k fal di 1ersee- 13s 99:82:63 =f 356 oe} 
ZSBTTL ‘READY DISK = make save set sequential disk ready' 
GLOBAL ROUTINE READY_DISK (MOUNT_MODE) = 


Po 


FUN O0ONOu OF 


'e¢ 
! 


FUNCTIONAL DESCRIPTION: 


PAAAASO rc 


FW 


This routine gets the disk ready as specified and returns the 
address of the VCB. 


i CALLING SEQUENCE: 
READY_DISK (MOUNT_MODE) 


i INPUT PARAMETERS: 
MOUNT _MODE : ante ooo ts to be mounted in: 
= re 


POIPITIPIPIPINUPIR) A 


DONAOVULSWN —OOONOUS wiry 


a 
write, initialize 


PUDVIV IVS SUV SVSUSVSUSVSIVSVSUSVSVOSVSVSUSUSISUSSISSIN = I? 
SOO SS SSS SS SSS 
at 5 a et ae 


| 
| 
3; 41 1 | 
3; 41 1 
3. 41 1 
3; 41 1 
3; 41 j 
3; 41 1 
3: 41 1 
3; 41 1! 
3; 41 1! 
3; 41 i! 
; 41 1! 
3; 41 § 1! 
3 41 -z 
3; 41 48 1! 
3: 41 49 1! 
3: 41 20 1! 
s 41 ek =. 1 <= 
3 41 26 1! 3 = write, no initialize 
3 41 531! 
3; 4131 654 1 ! IMPLICIT INPUTS: 
3 ot ¢ $22 } RWSV_VOL_NUMBER: RVN of disk to mount 
: rete 657 1 ! OUTPUT PARAMETERS: 
3; 4135 658 1! NONE 
: 4136 659 1! 
3; 4137 660 1 ! IMPLICIT OUTPUTS: 
3; 4138 661 1! NONE 
3: 4139 O66 1! 
3 4140 5665 1 ! ROUTINE VALUE: 
3 4141 5664 1! VCB of mounted disk 
3 a1e6 5665 1! 
3 414 2068 1 ! SIDE EFFECTS: | 
3 4144 566 1! NONE 
3 4145 o068 1! 
3; 4146 669 1 !-- 
3 41467 5670 1 
: 4148 671 BEGIN 
3 4149 ore 
3 4150 67 LOCA 
3: 4151 5674 STATUS } system service status 
: 413¢ 5675 10_STATUS : VECTOR £4 WORD], ! 1/0 status block 
3 415 2676 BUFFER : BBLOCK £5123, !’scratch 1/0 buffer | 
: $128 307 vcB : REF BBLOCK; ! VCB of volume being mounted 
° | 
3 e188 2678 EXTERNAL ROUTINE 
: tt 4 2680 MOUNT _MESSAGE ; ! issue mount request and get reply 
3 4159 2036 | 
: $199 268? : Get the skeleton MIL and VCB's set up if they aren't yet. 
: 416 685 
: 1168 268 If .MOUNT_MODE THEN etl abe = ,QUTPUT_MTL ELSE CURRENT_MTL = .INPUT_MTL; 
3: 4164 8 IF .CURRERT_ MTL EQL 
: $13? on8 THEN STA_MOONT (.MOUNT_MODE, 0); 
: e169 690 ! Find the next VCB to use and set it up. 
3; 4168 5691 


| 

| 
i 
: 

| 

} 

| 


| 
7 
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- 354 33) 

, <11 Bliss<32 V4.0-74 

igen 196 99:32:63 UBackur’scisTaace.a3e-1 | 

d e - o 

tandalone ACP t sequential disk rea | 

vou-000 READT_DIGE “take seve set TL_RVN_BASE GEQU .CURRENT_MTLCMTL_SETCOUNTI | 
TS pein tere re | 

: 2198 638 THEN CURRENT-MILERTL RUN. BASE] = anc MTLCMTL_RVN_BASEJ)J; 

3 4171 $3¢ CURRENT _MTLCMTL VCB(.RUSY_VOL_WURBER : ° 

4 “158 24 SUiTcH’ VOLUME T.RWSV_VOL_NUMBER) ; t with epereter pee ret anes, Ceemee 

3 417% 69 A the first volume, star it the chance that a prev | 

i 4109 ; Unless this is n down, there 

Pie ieee ee oe 

3 7 ty 

: 6180 , IF_.RWSV_SEG_NUMBER NEQ 0 

: 4181 70S 5 THEN 

: o183 ? DE RITE) 

: 418 IF_.MOUNT_MO (BACKUP$_READYWRITE) 

pe Sec eee 

; 709 - 

; Bt att END: Line and write enabled if necessary | 

3 418 711 hecking for disk on ified. | 

; 4189 aig prompting to Phe user until sat | 

3 4190 gr? $i | 

3; 4191 

£88 BMG Bue rave e | 

; EGIN = .VCBLVCB_CHAN], 

: 6195 afi8 STATUS = Sai0W “FUNC = 108 PACKKCK. 

2 4196 p 3990 10S6 = 10. STATUS 

: 4198 P 5183 IF .STATUS THEN STATUS = .10_STATUSCO]; 

PY © U 

: 4200 $724 AND STATUS NEQ SS$_ILLIOFUNC 7 | 

3; 4201 5 AND .STATU Q SS$_NOPRIV NT_MTLCMTL_SETCOUNT SEVERE 

i 4208 ae i OAM Fe eh. Hs Bs Peete trem ORC eure OPENOUT SST SSK SEVERE tus): 

: 504 2ist 4 THEN FILE_ERROR CTF . MOUNT RO OPENIN¢STSSK_SEVERE, . - 

: 4205 5729 j 

; .VCBLVCB_CHANJ, | 

: 307 2739 eae 2 SON ees le | 

: 4208 P 2 10SB = 10 STATUS, i 

+ 4209 P 57 ¢ P1 = BUFFER, 

; 630 P 3734 pe Biz, 

Be Re ia cn 

Re ogratus ruen Shara | 

; : 13 $740 ? MSNREGIN MODE PS READYURITE? | 

: 421 IF (BACKUPS_ | 

A HRS Ta iterttas cuca any 

: 4 744 4 ‘ | 

i 2382 ret Pe STSSK_SEVERE | 

: 4258 i y Status HEN BACKUPS_OPENOUT+STSSK_ | 

: ELSE IF NOT. -MOUNT_MODE T | 

; 768 § «© TREN FILECERROR CIP 


“Se auacmenciareenanesamecnenr auemmenen eicacamnas cumecnreia namanreaenen coats aia aca anena Rea aE ran eee ay 
7 | 
STAACP Standalone ACP 1b-s¢ -1984 00:42: Ak-11 Bliss-32 V4.0-74 P 42) 
voe-000 READY _DISK = make save set sequential disk read 1 305-138 99:32:68 YBACKUP-SRe STAACE.B3031 age 13 
; 4 $ 749 ELSE BACKUPS_OPENIN+STSSK_SEVERE, .VCBLVCB_FAB], .STATUS) | 
3 4228 751 ELSE IF .MOUNT_MODE 
3; 4 7 ¢ THEN 
3 4 753 4 BEGIN 
3 4 p 5754 4 STATUS = $QJ0W (CHAN = .VCBCVCB_CHANI, 
3 4 é Pp 5755 4 FUNC = [O$ WRITELBLK, 
3 4 p 57 § 4 10SB = 10 STATUS, 
: 4 p 5757 & Pi = BUFFER, 
3 4235 p 57 8 4 P2 = 512, 
i 6  3fe0 bee | 
3 4238 781 4 IF .STATUS THEN STATUS = .10_STATUSCO); 
; 4239 ¢ 4 IF .STATUS EQL SS$_WRITL 
: ‘ 40 163 4 THEN MOUNT_MESSAGE~ (BACKUP$_WRI TENABLE) | 
3 4 ae 765 4 ELSE IF NOT .STATUS 
; 4 43 276 4 THEN FILE_ERROR (BACKUP$_OPENOUT+STS$K_SEVERE. .VCBCVCB_FABJ, .STATUS) 
3 4245 5768 4 ELSE EXITLOOP; 
ey oun ee 
ie hf By ene 
o Py 
3 4250 577 | 
: 4551 5774 3 STA_MOUNT (.MOUNT_MODE, .RWSV_VOL_NUMBER); | 
: 4253 5775 | 
3 425 22776 .VCB 
3 4254 777 ~=1 «END; ! End of routine READY_DISK | 
-EXTRN MOUNT_MESSAGE | 
03FC 00000 .ENTRY READY_DISK, Save R2.R3,R4.R5,R6.R7,RB.R9 ; 5636 
59 000000006 00 9€ 9000 MOV ; 
38 000000006 8F 00 0000 MOVL  §§ #BACRUPS_OPENING4, RB ; 
5 9000000 6 8F DO 0019 MOVL  #BACKUPS~OPENOUT+4, R7 : | 
56 000000006 00 9€ 0001 MOVAB SYS$Q10W; ; 
55 00000000" EF 9€ OO0IE MOVAB CURRENT MTL, RS : | 
SE FOF8 CE 9 0 MOVAB = p ; | 
54 04 AC 0 000¢A MOVL § MOUNT MODE, R4 ; 5686 | 
06 54 €9 0002E BLBC OR ; 
65 FO OAS oO 6 1 MOVL TPUT_MTL, CURRENT_MTL ; | 
04 3 BRB ; 
65 FB OAS 09 037 1$: MOVL NPUT_MTL, CURRENT_MTL : 
9 12 00038 28: BNEQ : $687 | 
E 04 000 CLRL = = (SP) : 5688 
EFA2 CF 2 FB 0004) CALLS. #2, STA_MOUNT : | 
53 F928 eg 3¢ 46 38: MOVZWL RWSV_VOC_NUMBER, R3 : 5693 | 
0 65 b 04B MOVL CURRENT_ATL, RO ; 
31 30 AO 9A 0004 HOVZBL 48(RO) ,~R1 ; | 
51 1F AO 08 9 FD CMPZV #9, #8, 31(RO), R1 ; | 
A id BGTRU ; | 
30 ad 3 90 E MOVB = R3, 48(RO) > 5694 | 


: | 
ke save set sequential disk read ifogeoet gee 9:82:53 BACKUP SREISTA Yb Boe Page 143) 


BACKUP. SRCJSTAACP.B32 (32) | 
30 AO 9A 4$: MOVZBL 48(RO), R1 : 5696 | 
51 33 51 C3 SUBL3. RI, R3 RI : 
34 aos D A mov. 52¢r0)ER13, vce : 
3 DD F PUSHL : 5697 
posF CF ¢. 1 CALLS #1, SWITCH_VOLUME : 
F92A 3 16 ist RySv_s G_NOMBER ¢ 5704) 
CG Pe a - pee i $707 
000000006 00 1 §B O85 gf CALLS #1, MOUNT_MESSAGE : | 
— 7C 0008C 7$ CLRO 20 = §P) : 5722) 
: ¢ 0 CLRQ = =( SP) : 
7E 7C CLRQ =< SP) : | 
7E 7€ 0009 CLRQ (SP) : 
F8 AD 9F 000 PUSHAB 10_STATUS : | 
0 pp 0097 PUSHL : 
7E 08 A2 3¢ 00099 MOVZWL 8(VCB), -(SP) : 
7E D4 0009D CLRL ; 
6 C FB 0009F CALLS #12, SYS$Q10W : 
5 : DO 000A MOVL RO, STATUS : | 
07 5 OOA BLBC STATUS, 8$ : 5723) 
3 FB OA ¢ O0A8 MOVZWL 10_STATUS, STATUS : 
20 3 E8 OOOAC BLBS STATUS, ies : 57246 
000000F4 8F D1 OOOAF 8$: CMPL STATUS, #244 : 5725 
24 13 00086 BEQL 12 : 
24 3 pi 00088 CMPL STATUS, #36 : 5726) 
OF 13 00BB BNEG 9 ; 
50 6 OOBD MOVL  CURRENT_MTL, RO : 5727. 
51 1fF Aad 9A 000C0 MOVZBL 31(RO),~R1 : 
F92ZA CS 51 81 000C4 CMPW = soR1, RWSV_SEG_NUMBER : 
11 1a 000¢9 BGTRU 12$ a 
53 DD 000CB 9S: PUSHL STATUS : $729 
30 A2 DD 000CD PUSHL 4B (VCB) : 
04 54 €9 000D LBC. —- R4,- 108 F 
57 0D 9900 PUSHL 7 : $728 
0 11 0000 RB 11$ ; 
DD 000D7 10$: — PUSHL Rs : 5729 
69 Q FB 00009 11$: CALLS #3, FILE_ERROR : 5728 
— 7C 0000C 128:  CLRQ <-<§P) : 5737 
7E 7C 000D LRQ ss =(SP) ; 
7E 0200 BF 3¢ OE MOVZWL #512, -(SP) : 
14 AE 9F OOOE SHAB BUFFER F 
7E 7¢ : CLRQ = =( SP) F | 
fF8 AD OF 0 A PUSHAB 19 STATUS : 
21 po ED PUSHL 3 : | 
7E 08 A2 3C 00 Hi MOVZWL 8 (VCB), -(SP) : 
7E 04 4 CLRL Sd g | 
$6 : F F CALLS #12, SYS$Q10W ; | 
D F MOVL STATU : 
rs SABE Bi UHatalE eras See 
000001A4 ~=sBF 8 p] 13$: cmPL TATUS, 3428 ; 5739. 
03 m: (s 148: BLBS RS. 15$ : 5742 | 
000000006 $f DD 00111 15$:  PUSHL #BACKUPS_READYURITE : 5743. 
47 11 00117 BRB 19$ : | 


| AA ; andalone AC 16-Sep AX-11 Bliss-32 V4.0-74 


EADY Disk - aah save set sequential disk read 1 “540-1944 99 $f: 3 BACKUP.SRCJSTAA 1383564 


oc 5 E8 00119 16$:  BLBS STATUS, 17$ 
DD 0011 PUSHL 
30 A pp 0011 PUSHL caves) 
47 2 001 BLBS 
§ b 00124 PUSHL Rg 
4 501 6 BRB 228 
48 4 10128 17 BLBC Os «aR 238 
23 
t - 
7E 0200 8F 3¢ 001 ? MOVZWL wie -(SP) 
AE 9F 001 PUSHAB BUFFE 
7E 7C 00137 CLRQ = SP) 
F8 AD OF 00139 PUSHAB 19 STATUS 
2 po 013C PUSHL 2 
7E 08 A2 3¢ 001 MOVZWL 8 (VCB), -(SP) 
7E 04 0014 CLAL sis P) 
$6 FB 00144 CALLS #12, SYS$Q10W 
DO 00147 MOVL RO, STAT 
94 5 IGA LBC 8=—_s STATUS 
3 8 Ap C 00140 MOVZ2WL 10 STATUS, STATUS 
0000025c BF 33 bi O11 18$: cAPL TATUS, #604 
000000006 8F pp 015A PUSHL #BACKUPS$_WRITENABLE 
FF 1 9160 19$: BRW 
0D E8 00163 20$:  BLBS STATUS, 23$ 
DD 0166 PUSHL STATUS 
30 Ag DD 001 PUSHL  48(VCB) 
5? 0D 001 318: PUSHL R 
69 03 Fe O16) 228: CALLS #3, FILE_ERROR 
FFI : 01 BRW 
7E F928 gS C 00173 238:  MOVZWL RWSV_VOL_NUMBER, -(SP) 
4 dd 0017 PUSHL R64 
EE69 cf 92 FB O17A CALLS #2, STA_MOUNT 
0 p 17F MOVL vVCB, RO 
4 00182 RET 


; Routine Size: 387 bytes, Routine Base: CODE + 233C 


BR. 
STAACP Standalone ACP 16-Sep-1 742: AX-11 a =32 V4.0-74 P. 5. 
yoo 000 Direct ctory context vector 12-8604 382 90:82:63 BACKUP. SRCI STAACP, 833; age 44) 
7 4 q 1 ZSBTTL Directory context vector 
3 : f ! Entries in directory processing context vector 
3 4 7 1 
3 4 7 1 LITERAL 
3; 426 7 4 CTX_CHANNEL = 9. ! channel to use for directory 
; 426 7 1 CTX_ COUNT =i, ' count of name strin 
3; 426 785 (1 CTX_STRING = ¢ ! address of none string 
3; 4264 7 1 CTX_VERSION = 3, ! version number 
3 4265 7 1 CTX_VBN = 4, ! VBN of directory block 
: 4 o8 788 (1 CTX_BUFFER = 5, ! buffer address of current directory block 
> 426) 789 «#1 Ee A = g. ! address of directory record 
3; 4268 7 1 TX_FILEVER = 7, ' address of directory version entry 
3 4 34 791 «#1 CTX_FAB = 8, ! FAB for operation 
; 4270 792 «1 CTX_EOF = 9; ! size of directory file 


: 


Be Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Ge Ge Ge Ge Se Se Se Se Ge Ge Ge Ge Se Se Ge Se Se Se Ss Ge Se Ge Se Se Se Se Se Se Se Se Se Ge SH Se Ge Ge Se Se Ge ee 


Foy oy oy oY oY ot ot ot ot nt at ot et et at added ddd wa ah wh a ww wh ek a ah eh 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


od 
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ZSBTT T_REC = fi i P 
Be xToR 445 nd next d reste ory record 


ROUT INE 


(ENTRY, DIR_CONTEXT) = 


'oe 


{| FUNCTIONAL DESCRIPTION: 


This routine locates the next directory record and checks it for 
consistency. 


{ CALLING SEQUENCE: 
NEXT _REC (ENTRY, DIR_CONTEXT) 


INPUT PARAMETERS: 
ENTRY: address of present record 
DIR_CONTEXT: pointer to context block 


{ IMPLICIT INPUTS: 
NONE 

{ ouTPuT PARAMETERS: 
NONE 

{ IMPLICIT OUTPUTS: 
NONE 

{ROUTINE 


VALUE : 
address of next directory record 
i SIDE EFFECTS: 
NONE 


ENTRY : REF BBLOCK, ' current Sirestory record 
DIR_ CONTEXT : REF VECTOR: ! context block 
NEXT_ENTRY : REF BBLOCK; ! new directory record 
CHANNEL = DIR_CONTEXTCCTX_CH ANNELJ, 

FND_ COUNT = DIR“CONTEXTECTX~ COUN 

FND-STRING = DIR“CONTEXT CTACSTRING) 

FND~ VERSION = DIR-CONTEXT CTX"VER SION oni, 

DIR“ VBN = DIRTCONTEXTCCTX_VBN 

DIR“BUFFER = DIRTCONTEXTCCTX “BurFéR) : REF BBLOCK, 
DIR-ENTRY = DIRTCONTEXTECTX-ENTRY] : “REF BBLOCK 
DIRVERSION = DIRTCONTEXTECTX-FILEVER) : REF BBLOEK, 
DIR"FAB = DIR-CONTEXTECTX-FAB), 

LAST_BLOCK = DIR“CONTEXTECTX-EOF J: 


! Find the next record by adding in the record size of the current entry. 


rom 


Sak et et et ek ek et ek ek ee et ak et et ee ee ek ed 


: 


s* 


e 


uw 


QNOUE WO 


"pa aaah ante HSoseo-196s 90:48:29 yatett tag 


f 
! The gouns field of the next entry must be qither 65535 or be contained 
! within the block and even. Check the legality of the record type field. 


F .ENTRYCDIRSW_SIZE] LSSU DIRS NGTH + DIRSC_VERSION 
Hien pite ERROR arkups bee Tratt t SEVERE, -DIR_FAB, SS$_BADIRECTORY); 
NEXT_ENTRY = .ENTRY + sERTRY DIRSW ; 7E] + 2; 
IF .REXT ENTRY GEQA .DIR_BUFFER + 
THEN FILE_ERROR (BACKUPS_OPENOUT+STSSK_SEVERE, .DIR_FAB, SS$_BADIRECTORY); 
IF :NEXT_ENTRYCDIRSW_SIZEJ NEQ 65535 
If NEXT EmTayce 1> 
OR .(NEXT_ENTRYCOIRSW $1763)<0.1> 
OR .NEXT_ENTRYCDIRSV_TYPE] NEQ DIRSC_FID 
THEN FILE_ERROR (BACRUPS_OPENOUT+STSSK_SEVERE, .DIR_FAB, SS$_BADIRECTORY); 
RETURN .NEXT_ENTRY 
END; ! end of routine NEXT_REC 


003C 00000 NEXT_REC: 
WOR 


D Save R2,R3,R4.R5 
5 000000006 8F D0 MOVL § #BACKUP$ OPENOUT+4, RS 
4 000000006 3 VAB FILE_ERROR 
z 8 AC D MOVL DIR CONTEXT, R3 
0€ 4 6 BI MPW  a@ENTRY, #14 
D 1€ BGEQU 1 
7E 0828 8F 3¢ MOVZWL  # 088 -(SP) 
0 A3 dO PUSHL  32(R35 
55 DD PUSHL R 
$4 03 FB CALLS #3, FILE ERROR 
04 Bc 3 1S MOVZWL @ENTRY, R 
4 AC c ADDL2 ENTRY 
¢ ADDL a NEXT_ENTRY 
50 146 A3 00000200 8F ¢ ADDLS #512, 20TR3), RO 
5 2 01 CMPL XT[ENTRY, RO 
Op F BLSSU 2 
7E 0838 F 3¢ MOVZWL  # 088 -(SP) 
A3 DD PUSHL  32(R35 
3 PB CALS 5 FILE_ERROR 
FFFF SF 6 él 28: cP (NEXT ENTRY), #65535 
52 € BLBS § NEXT_ENTRY, 3$ 
6 7 BLBS § (NEXT ENTRY), 3$ 
04 AZ A B18 4(NEXT_ENTRVS a7 
7E 08 g 3¢ 3$ Bo viuL g 088 -(SP) 
A3 DD SHL 32(R35 
DD SHL OR 
64 FB CALLS #3, FILE_ERROR 
0 DO 0006D 4$ VL —- NEXT_ENTRY, RO 


Page 


47 
(34) | 


? 
900-000 NeXT REE ting next directory record 1b-se0-1984 99:92:63 YencKuPesRe STAALP O3e¢ Page +4 

04 00070 RET ; $869 
; Routine Size: 113 bytes, Routine Base: CODE + 24BF 


7 
tet Tb-Sen-19R4 00:42:29 yayctt BL ien-42 40-742 


IR_SCAN = scan directory file’ 
IR_SCAN (DIR_CONTEXT) = 


: 
= 


a 
> 


wie 


FUNCTIONAL DESCRIPTION: 

This routine scans a directory, searching for the given entry. 
CALLING SEQUENCE: 

DIR_SCAN (DIR_CONTEXT) 


INPUT PARAMETERS: 
DIR_ CONTEXT: context block for directory 


Wr 


5 
IMPLICIT INPUTS: 
8 NONE 
$9 OUTPUT PARAMETERS: 

70 90 NONE 

71 91 

7 4 IMPLICIT OUTPUTS: 

7 9 NONE 

74 94 

75 344 ROUTINE VALUE: 

76 38 1 if entry found 
37 89 0 if no match, in which case: 

78 898 DIR_ENTRY = next record in collating sequence 
79 5899 = f whale directory scanned (name belongs off the end) 
380 444 DIR_VERSION = next version in collating sequence if name & type matched 
381 Hf = 0 if name or type did not match 
358 290 SIDE EFFECTS: 
384 5904 directory blocks read 
oH Bee 
387 309 

88 


33s 


RIBS RIRIAD ARIAT NIAG AS RI RD AIR RL PIRI IDS at a a ht ts a ss ss st tt 
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Bo Se Se Se Se Se Se Se Ge Se Se Ge Ge Ss Ge Ge Se Ge Se Ge Se Ge Ge Fe Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Se Ge Se Ge Ss Ge Se Se Ge Se Se Se Ge Fe Ge Se Se Se Ge Geese 


; 8 
4 9 
90 910 MAP 
435 4h DIR_CONTEXT : REF VECTOR; ! name descriptor block arg 
3 31 LABEL 
ta aie SEARCH_LOOP; ! body of search code 
91 LOCAL 
38 317 STATUS, ' routine return status 
98 4 S_STATUS ' system service status 
99 91 10 STATUS : VECTOR (4,WORD), ' 1/0 status block 
4 920 LOCK, ' relative block number 
4401 921 NTRY : REF BBLOCK, ! pointer to current directory record 
$63 3 § p : REF BBLOCK; ! pointer to current directory version 
sie 924 BIND 
4405 925 CHANNEL s DIR_CONTENTECTX CHANNEL], 
4406 5926 FND_COUNT = DIRTCONTEXTECTX~COUNT), 
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PAAAAAPAAAUUIUUNUNUIU ER BEE EEE EEE EEE EEE EE EE PUMA IORIIINOINONININONINININD 


m 


» 
—~ 
yn 


Win 


LLL LeeLee Pp pococcL DD DDD DDO 


DONA VEWN —$ O OONOUS WOLD 


Egssesscecssee 
SS SaNOUPUN—OOe 


ono 
WN 


<2 


AcP 
= scan directory file 


ifosen-196e 0:42:29 yarcdt OL iage82 v4.0:74 


FND_STRING = DIR_CONT XTECTX_STRING) 

END VERSION = DIR“CONTEXT CTH-VERSION], 

DIR- = DIRTCONTEXTECTX-VBN 

DIR“BUFFER = DIR“CONTEXTECTX-BUFFER] : REF BBLOCK, 
DIR-ENTRY = DIRTCONTEXTECTX-ENTRY] : REF BBLOCK 
DIR“VERSION = DIRTCONTEXTECTX-FILEVER] : REF GBLOCK, 
DIR-FAB © DIRTCONTEXTECTX-FABI, 

LAST_BLOCK = DIRCONTEXTLECTX~EOF 3; 


: Loop, scanning blocks of the directory until we hit EOF. 


SEARCH_LOOP: BEGIN 


STATUS = 0; 
BLOCK = 1; 


P = 0; 
WHILE 1 
BEG 


ENTRY = 0; 
S_STATUS = S$Q10W (CHAN 
10S8 


): 
F .S_STATUS THEN $ STATUS = 
F NOT .S STATUS THEN FILE_ERROR™ (BACKUPS 
ENTRY = .BIR_BUFFER; 


Loop, scanning the records of the directory. A record size of -1 indicates 
the end of the block. We attempt to match name and type against the entry, 
under control of the various name control flags. 


= CHANNEL 

= 10 STATUS 
FUNC = 10$_READVBLK, 
P1 = .DIR_BUFFER, 
Ps = $1 
P3 = . BLOCK 


.10_STATUSCO; 
“OPENOUT+STSSK_SEVERE, .DIR_FAB, .S_STATUS); 


thee ~ENTRYCDIRSW_SIZEJ EQL 65555 


BEGIN 
IF .ENTRYCDIRSW_SIZE) + .ENTRY + 2 GEQA .DIR_ BUFFER + 512 


THEN FILE_ERROR™ (BACKUPS$_OPENOUT+STSSK_SEVERE, .DIR_FAB, SS$_BADIRECTORY); 
P = .ENTRY + DIRSC_LENGTH + .ENTRYCDIRSB_NAMECOUNT] + 1 AND NOT 1; 

IF_.P GEQA .DIR_BUFFER + 512 = DIRSC_ VERSION 

THEN FILE_ERROR™ (BACKUP$_OPENOUT+STSSK_SEVERE, .DIR_FAB, SS$_BADIRECTORY); 


IF (CASE CHSCOMPARE 6 EUTEVED eae are Count. 
ENTRY PLFOT ANE . 


.FND_COU 
FNDTSTRING 
FROM -1 TO 1 OF 
SET 


{-1]: 0; ! no match - dir entry precedes name 


ow 


ODOODOOD ce 


: 4666 

: 4465 

3 44 

tte 

; tees 9 

3; 4470 

3: 4471 991 
3 4467 338 
3: 447 99 
3 4474 994 
 tehe 396 
i $0 $3) 
3; 4479 398 
3; 4480 6000 
3 4481 6001 
3 448 oO 
: tee $004 
3 rent 6005 
3: 448 6 : 
3; 4488 6008 
3: 4489 6009 
3 4490 6010 
3 4491 6011 
3 449 601 
3 449 601 
3 44946 6014 
fe Bt 
3 te99 gore 
3 4498 ont 
3 4499 601 
3; 4500 6020 
3: 4501 6021 
: 45 ‘ 60 § 
3 4$4 60 

3: 4504 6024 
3; 4505 6025 
: 4506 60 $ 
3; 4507 $8 

3; 4508 6028 
3; 4509 6029 
3: 4510 6030 
3 $31! 6031 
34 \¢ 6 § 
3: 451 6 

3 4514 60 

3: 4515 6035 
3 o3i8 

23] g 

: t319 60 3 
; 4520 6040 


ve 
ca 


& 


PEEK RNAWMNAAAEAA AAA A IID 09 09 09 09 60 09 09 69 69 69 69 DO OO 69 C9 IIAP PAP AAA AAA NINOS 


7 
ACP 18-56 -1984 00:42: AX-11 Bliss-32 V4. 

= scan directory file 1 =$007 1383 90:82:83 EBACKUP SRE STAACP 

(0): 1; ! match 

{1}: peGln ! no match - dir entry is past name 

= 0; 
LEAVE SEARCH_LOOP; 
TES) f 


If the name and type match on a record, loop to process the versions of 
the record. 


BEGIN 


IF (.FND VERSION Ho 0 
AND NOT .ENTRYLDIRSV_PREVREC) 


) 
THEN 1 


ELSE IF .FND VERSION GTR .PCDIRSW_VERSION] 
THEN LEAVE SEARCH_LOOP 


ELSE .FND_VERSION EQL .PCDIRSW_VERSIONJ 
END 


STATUS = 1; 
LEAVE SEARCH_LOOP; 
END; 
P = .P + DIRSC_VERSION; 
END; ! end of record scanning loop 


have gone through a directory record without finding a match. 
no continuation records are present, we can quit now. 


—e 
aD 


IF NOT .ENTRYCDIRSV_NEXTREC) 
THEN LEAVE SEARCH_LOOP; 


END; ! end of record processing conditional 


ENTRY = NEXT_REC (.ENTRY, .DIR_CONTEXT); ! get next record 

END; end of block scanning loop 
= 0; 

BLOCK GEQU .LAST BLOCK 
AVE SEARCH_LOOP; 


crm 
mo 


' 
a 


" 7 
STAACP Standalone ACP 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 
00-000 DIR_SCAN = scan directory file 1o785p-1882 99:82:53 + ENckup°sneistaace.o3e, 
> 4521 604 BLOCK = .BLOCK + 1; 
: : § ° ? END; ! end of block loop 
i 43¢6 6044 ¢ END: ! end of block SEARCH LOOP 
, ; 6047 Return the record pointers in global storage and return status. 
; 4529 808 DIR_VBN = .BLOCK; 
; 4530 6050 DIRTENTRY = .ENTRY; 
: ¢3 1 + DIR_VERSION = .P; 
2838 8085 § RETURN .STATUS; 
3; 45 6054 
3; 4535 6055 END; ! end of routine DIR_SCAN 


OFFC 00000 DIR_SCAN: 
-WORD Save R2,R3,R4,R5,R6,R7,R8,RI,R10,R11 


57 000000006 af D9 00002 VL_  #BACKUP$_OPENOUT44, R7 
5 8 C2 0000 SUBL2 #8, SP 
5 04 AC 00 0000C OVL DIR_CONTEXT, RS 
5B D4 00010 CLRL = STATUS 
59 1 dO O012 MOVL #1, BLOCK 
8 D4 0001 CLRL oP 
54 D4 00017 1$: CLRL —sCENTRY 
7E 7C 90019 CLRO = = (SP) 
7E D4 0001B LRL = = (SP) 
59 BD 90010 SHL BLOCK 
7E 0200 8F 3C O001F MOVZWL #512, -(SP) 
14 AS DD 0024 PUSHL 20(R5) 
7E 7C 00027 LRQ.  =(SP) 
20 AE 9F 00029 PUSHAB 10 STATUS 
31 DD 0002C PUSHL #49 
5 DD 000 F PUSHL  (R5) 
E D4 000 CLRL 5 (gP) 
one a a ee 
06 SA ; 09 C BLBC © §_STATUS, 2$ 
5A E ¢ 003F MOVZWL 10 STATUS, S_STATUS 
Oe AE D048 BLBS $_STATUS, 3$ 
A DD 00045 2$ PUSHL : STATUS 
20 AS DD 00047 PUSHL (RS) 
57 DD 0004A PUSHL R 
cocoons one AE BBE ae, ROS ABcaK tn 
6 64 ee 03 4s: MOVZWL CENTRY' R6 
FFFF 6 oF 2 1 0005A CMPW RG, #65535 
0 é SF BNEQ 3$ 
5 43 a 5$ ACV SteuTRYDER 1,2 
53 14 i 0000026 i ef 6 69 ADDL $572 sOtRS). Rg 
5 0 D1 : CMPL RO, R3 
11 1 0007 BLSSU 6 
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; Routine Size: 


04-000 


8 

STAACP Standalone ACP 1b-se -1984 00:42: AX-11 Bliss-32 V4.0-74 Pa 54) 
vou000 STALENTER = make directory entry 12-868-1 38 90:82:63 BACKUP. SRC STALE 83084 at st 

| 
3; 4537 6 $ 1 ZSBITL "STA_ENTER = make directory entry’ 
; ‘ 3 6 | GLOBAL ROUTINE STA_ENTER (FAB) : NOVALUE = | 
; 4540 £089 1 +4 
3; 4541 6060 1! 
3 454 6061 1 ! FUNCTIONAL DESCRIPTION: 
3 454 $006 1! | 
3 $248 oper : : This routine enters the given file name in the specified directory. 
3 rere | 6065 1 ! CALLING SEQUENCE: 
3; 454 6066 1 | STA_ENTER (FAB) 
; S268 6067 1! 
3; 454 1 ! INPUT PARAMETERS: 
3 t229 ons } FAB: address of FAB for file to be entered | 
3 $226 tet 1 ! IMPLICIT INPUTS: 
3; 455 6072 1! NONE 
3; 4554 6073 1! | 
3; 4555 6074 1 ! OUTPUT PARAMETERS: 
3: 4556 6075 1! NONE 
3 4557 6076 1! 
3; 4558 6077 1 ! IMPLICIT OUTPUTS: | 
3; 4559 6078 1! DIR_RECORD: record number of new directory entry 
3; 4560 6079 1! DIR_BUFFER: buffer address of current directory block | 
3; 4561 6080 1! DIR_ENTRY: address of directory record 
: 456 6081 1! DIR_VERSION: address of directory version entry 
3: 456 6082 1! DIR_END: end of directory data 
3: 4564 6083 1! 
3; 4565 6084 1 ! ROUTINE VALUE: 
3: 4566 6085 1! NONE 
: 4567 6086 1 | | 
3; 4568 6087 1 ! SIDE EFFECTS: 
3; 4569 6088 1! directory altered 
: 4570 6089 1! | 
3; 4571 6090 1 !-- | 
3 $276 6091 1 
3; 457 609 BEGIN 
3 oats 609 MAP 
3; 4575 6094 FAB : REF BBLOCK; ! FAB argument 
3 £276 6095 
3; 457 609 LOCAL 
3; 4578 609 STATUS, ! result of directory search 
3; 4579 6098 NAM : REF BBLOCK,  ! address of name block 
3 $280 6099 10_STATUS : VECTOR (4 BORD}. ! 1/0 status block 
3 4581 6100 BUFFER : BBLOCK (512), !1/70 buffer to read directory | 
; 498¢ 6101 FIB : BBLOCK PIBSC_LENGTH ! FIB to access directory 
3 458 610¢ FIB_DESC : VECTOR C2 ' descriptor for above | 
3 4584 61 RECATTR : BBLOCK CFATSC_LENGTHJ, ! record attributes buffer 
3; 4585 61 FILECHAR : BBLOCK (4 ! file characteristics longwor 
; 4586 6105 ATT_CONTROL : BBLOCK [2 i. i attribute control li | 
3 45 61 pit -ONTeR! : VECTOR wid etcoctory context block 
3; 4588 61 IR_END REF BBLOCK, ! end of directory data 
3 4589 6108 NAME_LENGTH, ' Length of file name, rounded even 
3 4590 6109 NEW SIZE, ' size of new directory entry 
3 4591 6110 VERSIONS, ' version Limit for en ry 
: £236 oil} FAO_DESC : VECTOR (2); ! string descriptor for FAO 
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- make directory entry 14-Sep-1 BACKUP. SRCJSTAACP.B32; 


R 
LAST BLOCK = ROT (.RECATIRCFATSL_EFBLKI], 16); 
IF_ .RECATTROFATSW frevte) EQL 0 - 


»LAST BLOCK 
THEN LAST_BLOCK = .LAST_BLOCK = 1; 
If NOT AHTAFEANSS. Arve IRECTORY 


dD 8 | 
one ACP 1o=se0~ 1386 00:62:88 AX-11 Blis sthate' oss Poge 176) 


OR .RECATTREFATSB_RTYPE) NEQ FATSC_VARIABLE 

OR .RECATTRLFATSB-RATTRIB) NEQ FATSM_NOSPAN 

OR .LAST BLOCK EQC 

THEN FILE_ERROR (BACKUPS_OPENOUT+STSS$K_SEVERE, .DIR_FAB, SS$_BADIRECTORY); 


+ Search the directory for the indicated name. If the search succeeds, we | 
: have a duplicate entry. If the search failed, make a new entry. 


STRING = .NAMCNAMSL NAME]; | 
COUNT = .NAMCNAMSL VER] = .NAMCNAMSL_NAME); 
NAMCNAMSB VER) LSSO 


= i 
CVT_DTB_ (.NAMCNAMS$B_VER]-1, .NAMCNAMSL_VER]+1, FND VERSION) | 
E_ERROR (BACKUPS GPENOUT+STSSK, SEVERE, .DIR_FAB, SS$_BADFICEVER); 
VERSION GTRU 327 
CE_ERROR (BACKUPS_OPENOUT+STSS$K_SEVERE, .DIR_FAB, SS$_BADFILEVER); 
TATUS = DIR_SCAN (DIR_CONTEXT); 
F STAT 
AND -FND_VERSION NEQ 0 

FILE_ERROR (BACKUPS_OPENOUT+STSSK_SEVERE, .DIR_FAB, SS$_DUPFILENAME); 


! Set up the position for the insert. Scan to the end of the ; 
: records in the block. 


F 
F 
I 
T 
E 
T 
I 
T 
$s 
I 


DEI II tt ce a a a ee ed ae aed eed ed ed 


RNIN 2 OOO SOOO 00 000000 0.00900000009 0909090009 INI NINN NINN 
PARMISSOONAAP WN HOODS IEA WU OSD MR OR I OOM UR I DONOR One 


NAME LENGTH = .FND COUNT + 1 AND NOT 1; 
DIR_END = .DIR_ENTRY; 


UNTIL .DIR_ENDCDIRSW_SIZE] EQL 65535 
0 END™= NEXT REC (.DIR_END, DIR_CONTEXT); 
DIR_END = .DIR_END + 2; 


! If there was not a name match, we are constructing a whole new record. 

! Compute the record size and see if there is enough space. If not, extend 
' the directory. Then shuffle down the rest of the records and build the 

: new entry. 


IF .DIR_VERSION EQL 0 
THEN 
BEGIN 
If _.FND_ VERSION EQL 0 
THEN FND_VERSION = .FND_VERSION + 1; 
NEW_SIZE = DIRSC_LENGTH + punsc yegsion + NAME _LENGTH; 
ER + 512 = .D ND 


IF “NEW SIZE GTRO .DIR vt -DIR_E 
THEN FICE_ERROR (BACKUPS$_OPENOUT+STSSK_SEVERE, .DIR_FAB, SS$_DIRFULL); 


PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAA APAAPSPAPSOSASASSOSASOAAS wn 


8 
Joe 800 .ane directory entry 1$-Se0-1984 99:92:63 YekcKupe sre staat 358 a, 35 


: 4708 CHSMOVE (.DIR_END-.DIR_ENTRY, .DIR_ENTRY, .DIR_ENTRY+.NEW_SIZE); 

3 471 DIR_ENTRYCDIRSW_SIZE) = .NEW SIZE = 2; 

: rea VERSIONS ~ CSIZsbInSE VERSION=2-.NEW_SIZE) / DIRSC_VERSION; 

: eat IF -RECATTRLFATSW_ VERSIONS) NEQ 

: 471 HEN VERSIONS = .RECATTRLFATSW_ VERSIONS); 

; rat DIR_ENTRYLDIRSW_VERLIMIT] = . VERSIONS; 

; cg DIR_ENTRYEDIR -fLags) = pIRsC FID; 

; 471 DIR-ENTRYLDIRSB-NAMECOUNT) = .FND_COUNT; 

3 471 CHSCOPY (.FND_COUNT, .FND STRING, 
: 471 O07 .NAME_LENGTH, DIRENTRYCDIRST_NAMEJ); 

: 6721 DIR_VERSION = .DIR_ENTRY + .NEW_SIZE - DIRSC_VERSION; 

> 47 é END 

: O35 | 
3 4725 ! Otherwise we are adding a new version to an existing entry. Then 

3 of $ } shuffle the rest of the directory down. 

3 4728 : 

; 47 9 ELSE 

3 4731 IF .FND_VERSION EQL 0 | 
3 47 g THEN FND-VERSION = .DIR_VERSIONCDIRSW_VERSION] + 1; 

3: 47 IF DIRSC_VERSION GTRU .DIR_BUFFER + 512 = .DIR_END | 
> 4735 THEN FILE ERROR (BACKUPS_OPENOUT+STSSK SEVERE, ~.DIR_FAB, SS$_DIRFULL); 

; cf8s DIR_ENTRYCDIRSW_SIZEJ = -DIR_ENTRYCDIRSW_SIZE4 + DIRSC_VERSION; 

3 47 CHSMOVE (.DIR_END=.DIR_VERSION, .DIR_VERSION, .DIR_VERSION+DIRSC_VERSION); | 
3 rete END; | 
; an } Now insert the version number and file ID into the version slot. | 
: 674 ‘ 
+ 4744 IF .FND_VERSION GTRU 32767 
> 6745 THEN FICE ERROR (BACKUPS OPENOUT+STSSK SEVERE, .DIR_FAB, SS$_BADFILEVER); | 
+ 476 DIR_VERSIONCDIRSW_VERSION) = .FND VE : 
3 474 DIR-VERSIONCDIRSW-FID_NUM] = .NAMCNAMSW_FID_NUM); 
: 6748 DIR-VERSIONCDIRSW-FID-SEQ) = .NAMCNAMSW~FID~SEQ]: 
: 4749 DIR-VERSIONCDIRSB_FID-NMX) = .NAMCNAMSB~FID-NMX): 
; 4790 DIR-VERSIONCDIRSB-FID-RVN) = 0; 

: 47 g STATUS = S$QJ0W (CHAN = .CHANNEL 

> 47 10SB = 10 STATUS, 

3 4754 FUNC = 10S _WRITEVBLK, | 
: 4755 Pi = DIR_BUFFER, 

: 4796 pP2. = $1 

: of3 P = .DIR_VBN 

: 67 § IF .STATUS THEN STATUS = .10 STATUSCO); 

; £760 IF NOT .STATUS THEN FILE_ERROR (BACKUP$_OPENOUT+STSSK_SEVERE, .DIR_FAB, .STATUS); 

3 676 STATUS = S$Q10W (CHAN = .CHANNEL 

+ 476 10SB = 10 STATUS 

+ 4764 FUNC = 10$_DEACCESS 


Pre 
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SEPP ESE 
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wn 


F 
NIER = woke directory entry 1$-$e0-196 99:82:88 YeAcKuP’ sre STAAL: 933: 


‘ gStATus,t HEN stitus = .10_STATUSCO): 
STATUS THEN FILE_ERROR (BACKUP$S_OPENOUT+STSSK_SEVERE, .DIR_FAB, .STATUS); 


rok »NAMCNAMSB_RSL] EQL 0 


tt ES i: .NAMCNAMSL_ESA dai .NAMCNAMSL_RSAJ) ; 

FAO_DE esc WER} + 1+ “NAMCNAM Le RSA] = snarls a2 
FAO-DE $f i “KES - (.FAO_DESCL1] = .NAMCNAMSL_RSAJ)? 

IF FAO “FAO CLO} =, nan oR O. 


FAO peste J- 
NAM 


0; 
ithe DESCC1] + .FAO_DESCLO] = .NAMCNAMSL_RSAJ; 
init. NAMEBLOCK NAM); 


END; ! end of routine STA_ENTER 


00000003 654 P.AAS: .LONG 
00000000" 02658 «ADDRESS P.AAT 


-EXTRN LIBSCVT_DTB, INIT_NAMEBLOCK 


57 55 21 0264E P.AAT: .ASCII \!UW\ 
BLKB 


OFFC .ENTRY STA_ENTER, Save R2,R3,R4,R5,R6,R7,R8,R9,- 
se FD48 = MOVAB =E96U3P), SP 
04 Ac MOVL 0 
c UA 5 MOVL DIR_FAB 
0 AE ge’ ¢€ VAB OF R, DIR_BUFFER 
eo 8 8 me Aa at 
E 00 3 . (SP), #0, #64, FIB 
#64, FIB_DESC 
F1B. FIB-DESC+4 
42(NAM), FIB+4 
Ht F1B+8 
#262176. ATT_CONTROL 
RECATIR. ATT~CONTROLO+4 
#196612. ATT“CONTR 


30 


10 


40 AE 
44 
38 
7c 
F 
a © 
BY 
000000006 58 
OB 
18 
000000006 
000000006 00 
AE 50 AE 
by) 
30 
30 
11 01 A 
0 48 
08 49 
30 
7E 0828 
000000006 
000000006 00 
14 «AE 4¢ 
AE 54 AG 4C 
02 3D 
18 
18 
7E 54 Ab 
7E 30 
000000006 
5 
7€ me 
000000006 
8008 0006 00 
O7FFF F 18 
7€ 0820 
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CALLS #3. FILE7E 
ROTL #1 

TSTW RECAT 
BNEQ 

TSTL AST_BL 
BEQL $ 


AX-11 Bliss-32 V4. 
BACKUP’ SRE SSTAACP 03 


MOVAB FILECHAR, ATT_CONTROL1+4 
CLAL Ait CNT honS 

CLRL «= SP 

PUSHAB ATT CONTROL 

CLRQ = = (SP) 

CLRL = (SP) 

PUSHAB FIB DESC 

CLRQ 0 =( SP) 

PUSHAB 10 STATUS 

MOVZBL #114, <(SP) 

PUSHL CHANNEL 

CLAL ssp? 

CALLS #12, STA_Q1OW 
MOVL RO, STATOS 

BLBC STATUS 1$ 

MOVZWL 10 ST tus STATUS 
BLBS STATUS, 2$ 

PUSHL STATUS 

PUSHL 


DIR_FAB 
PUSHL CKUPS_OPENOUT+4 


0 
6, RECATTR+8, LAST_BLOCK 
TR 


12 
OCK 
CK 


LAST_BLO 
BBC #5, FILECHAR+1, 4$ 
CMPB —s«RRECCATTR, #2 


CMPB sé RECATTR+1, #8 
BNEQ 
TSTL AST_BLOCK 
BNEO 
MOVZWL #2088, -(SP) 
PUSHL 
00cB PUSHL CKUPS_OPENOUT+4 
D1 CALLS #3, FILE-ERROR 
9 D8 5S: MOVL. 76(NAM), END STRING 
DD SUBL3 76(NAM), 84(RAM), FND_COUNT 
O0E4 CMPB) 0s 61 (NAM). #2 
00E8 BGEQU 6S 
EA CLRL  FND_VERSION 
ED BRB 7$ 
EF 6$: PUSHAB END _YERSION 
Fe ADDL3 #1, 784(NAM), -(SP) 
F MOVZBL 61(NAM), -(SP) 
FB ECL (SP) 
FD CALLS #3, LIBSCVT_DTB 
1 LBS_sSséR 
107 mOVZWL #2080, -(SP) 
10¢ SHL DIR_FAB 
10F PUSHL #RACKUPS_OPENOUT +4 
115 CALLS #3, FILEERROR 
11C 7%: CMPL FNO_VERSTON, #32767 
124 BLEQU 
126 MOVZWL #2080, -(SP) 


a9 


H 
Standalone ACP 16-Sep- 242: AX-11 Bliss-32 V4.0-74 
¥ N - e rectory entry -3ep- $ $ KUP. e P+ 
STA ENTER = make di 1ergee 138s 99:82:83 akche She Ssfaate o3004 
AE DD 001 PUSHL DIR_FAB 
000000056 F Bp 1 5 TKUPS_OPENOUT+ 
smn ee MEG os: Bille Sa titer 
FD91 cr i F 1 CALLS #}-bIn SCAN 
1 MOVL §86R STATUS 
iA B £9 0014 BLBC STATUS 
18 AE 149 r tL FND_ VERSION 
7E 08 BF 3C 166 MOVZWL 35152 -(SP) 
AE DD 001 PUSHL DIR_FAB 
000000006 DD 00156 PUSH ACKUPS_OPENOUT +4 
000000006 00 Fe 1 CALLS #3, FILE-ERROR 
10 A C1 00163 9$ ADDL3 #1, FND_COUNT, RO 
1 ¢B 001 BICL3 #1, RO, NAME_LENGTH 
A 24 AE 00 001 MOVL OIR_ENTRY, DIR gND 
FFFF oF 6A 8} vv 108: cpu (DIR_END), #65535 
OC AE 9F 0017 PUS DIR_CONTEXT 
A OD OO17A PUSHL DIRTEND 
FCE2 cf 3 FB 0017C CALLS #2, NEXT_REC 
A D 0181 MOVL RO, DIR_END 
FA 1 BRB 10$ 
SA 2 CO 00186 11$:  ADDL2 #2, DIR_END 
os Bee dick SugLvension 
18 Ar D5 001 TSTL § FND_VERSION 
03 12 0019 BNEG = 12$ 
18 Ae 06 193 INCL = FND_VERSION 
57 OE : 196 12$: mOvAR 14(R8), NEW SIZE 
50 20 Ar SA g 19A SuBL$ PIR END, DIR_BUFFER, RO 
5 0200 £9 F 19F MOVAB 512TRO). R 
she 15 8 in? BLEdu 1 SIZE, = 
7E 0860 8F 3C 001A9 MOVZWL #2144, ~(SP) 
000000006 ar BD ist PUSHE pin Ae. OPENOUT+4 
000000006 9 ef f 187 CALLS Ae FILE-ERROR 
50 H ak : 1¢5 198: HOWL, DIRLEWIRY. RD 
6749 9 é § 1¢ nove} RO. (ROT, (NEW SIZE)CROI 
69 7 02 A3 001¢B SUBW3 9 #2. ~NEW Size. TRI) 
0 FDFA 9 ck ROVAR . Teca7s, R 
8 5 CE 00107 MNEGL RO, VERSIONS 
66 OF 98 Soipe (sty REEATTRGSO 
50 66 AN 3 1 MOVZWL RECATTR+30, VERSIONS 
02 5 163 148:  MOVW VERSIONS, 8cR9) 
04 A 1€ CLRB «49 
0S ad 6 AE 1EA MOVB. FND_COUNT, 5(R9) 
58 00 14 BE } AE IEF MOVCS END COUNT. QFND_STRING, #0, NAME_LENGTH, - 
28 AE 8 A749 9 if8 MOVAB 7 BiNEW_SIZEDCR9I, DIR_VERSION 
42 11 OO1F BRB 18$ 
"“satia™ ce en 


SeSe Se Ge Ge Se Ge Ge Se Ge Ge Ge Ge Fe Se Ge Ge Se Ge Se Fe Fe Ge Fe Fe Ge Fe Se Se Se Se Se Fe Se Se Ge Fe Fe Ge Ge Se Fe Se Ge Se Ge Ge Fe Ge Ge Se Se Ge Ge Fe Se Se 


SIMMER, Standalone ACP nery 1e-sen-1964 90:42:28 yanets oLing-82 v4.0-74 


18 AE 28 BE 5 VTWL  @DIR_VERSION, FND_VERSION 
50 20 A af p > 168 tet DIR ber torr BUFFER, RO 
Som fh marks scan: 
CMPL A 
E A BGeGu§ 178 
7E 08 BF 3¢ : MOVZWL #2144, =(SP) 
AE DD PUSHL DIR_FAB 
000000006 8F DD 4 PUSHL TKUPS_OPENOUT+4 
000000906 00 ; F A CALLS #3, FILETERR OR 
4 A 117$: ADDW2 #8. aDdIR NTRY 
28 Af D 3 MOVL RT Sinszag 
50 3 g SUBL3. R1, DIR Biel) 
08 Al @ 0 MOVCS RO, (RIT, 8(R1) 
OOOO7FFF 8F 18 AE D 18$:  CMPL ‘ FND_VERSION, 432767 
1 18 4A BLEGU 98 
7E 08 BF 3C 0024C MOVZWL #2080, =(SP) 
000000 6 BF BD 4 PuSHE pad OPENOUT+4 
000000006 00 3 FB A CALLS Ae FILE-ERROR 
30 2 AE D 19$:  MOVL  DIR_VERSTON, RO 
6 18 AE OB MOVW  FND-VERSION, (RO) 
02 AO 4 6 69 MOVL § 36(RAM), 2(RO) 
07 «AO 9 A $F MOVE 41(NAM). 7(RO) 
AO 94 CLRB  —s-_- 6 (RO) 
7E 7C CLRQ = =( SP) 
a AE bo COSTA Bust DIR VEN 
7E 0280 8F Be 10270 MOVZWL ih =(SP) 
34 AE OD Be PUSHL DIR BUFFER 
7E 7C¢ CLRQ. = ( SP) 
F8 AD 9F 00287 PUSHAB 10 STATUS 
30 DD A PUSHL #48 
34 AE OD C PUSHL CHANNEL 
7E D4 F CLRL ssp) 
ALLS #12, STA_Q10W 
000000006 00 € FB 00291 CALLS #12, STA_QI 
0 D 0 98 MOVL RO, STAT 
0 : 98 LBC = §TATUS 
38 F8 AD ¢ MOVZWL 10 status STATUS 
1 28 & BLBS STATUS, 21 
B DD 002A5 208 PUSHL ST 
30 AE DD 002A PUSHL ODIR_FAB 
000000006 8F DD OO2AA PUSHL CKUPS_OPENOUT +4 
000000006 00 3 FB B0 CALLS FILE-ERROR 
— 7C¢ 218:  CLRO eee) 
7E eC B9 CLRQ 0 = (SP) 
7E 7C 00288 CLRQ = =( SP) 
7E 7C€ 00280 CLRO 
F8 AD 9F O02BF PUSHAB 10 STATUS 
34 DD 002C2 PUSHL 
34 AE DD 0024 PUSHL CHANNEL 
7E D4 002C7 CLRL. = 
000000006 ¢ F (9 CALLS #12, STA_Q10W 
D MOV RO, STA 
B : D BLBC = STAT 
AD c MOVZWL 10 status STATUS 
5B E DA BLBS STATUS, 23$ 


i} 
STAACP Standalone ACP 1b-se -1984 00:42: AX-11 Bliss-32 V4.0-74 p 
904-500 STA_ENTER = make directory entry 1 ~$007 1383 90:62:63 BACKUP. SRC STRAND b3007 ~s sf 
58 DD 22$:  PUSHL STATUS 
039 AE OD 0000 PUSHL ODIR_F 
000000006 : DD O02E PUSH TKUP$_OPENOUT +4 
000000006 00 f E CALLS #3, FILE-ERROR 
03 A 9 Er 23$: iste aa 6291 
50 08 As oA re MOVZBL $e NAN) RO 6294 | 
04 86 g¢ BS 50 28 002F8 MOVC3 RO, @12(NAM), @4(NAM) 
4 As 04 A6 C1 OO2FE ADDL3 4(NAM), 84(NAM), RO 6295 | 
5 . &@ ge 04 SUBL2 12 (NAMS, RO 
08 AE te : MOV 1(RO), FAO_DESC+4 
50 04 Ag : A ‘ SUBL3 FAO DESC+4> 4(NAM), RO 
2 A6 OA MOVZBL 2(NAM), R1 
04 AE 0 5 9 1 ADDL3 R1, RO. FAO_ 
16 iC BLEG 4 6-24 6297 
18 AE OD If PUSHL FND_VERSION 6 
AE OF PUSHAB FAO"DESC 
C AE OOF 4 PUSHAB FAO~DESC 
FCCD «OCF OF 7 PUSHAB P.AAS 
000000006 00 4 re 0 CALLS #4, SYSSFAO 
3 11 00 BRB 258 6297 
$0 08 A be AE CT 00887 S88; ADDTS.  FADTDESE, FAQ_DESC#4, RO $308 
03 Ab 5 4 Ar §3 S 3 4(NAM), RO, art > 
56 DD 0034 PUSHL NAM 6309 
000000006 00 01 FB 0034 CALLS #1, INIT_NAMEBLOCK 
04 0034C 268: RET 6312 


; Routine Size: 845 bytes, Routine Base: CODE + 265C 


QS 
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K 8 | 
STAACP Standalone ACP 16-Sep-1 242: AX-11 Bliss-32 V4.0-74 P 3) 
STALEXTEND = extend a file 12280871382 99:82:88 YBACKUP-SREISTAACP. B32; 290 39) 
74 13 J ESBITL oSTA EXTEND = extend a file* 
: ? 13 : GLOBAL ROUTINE STA_EXTEND (P_COUNT, RET_COUNT) = 
34 16 1 !e4 
a | 
; 480) ? 18 1; FUNCTIONAL DESCRIPTION: 
; 480 6 , 1! This routine attempts to allocate the specified number of 
3; 480 6 1! blocks to the currently open file and appense them to the file. 
3; 4804 6 ¢ 1! When asked to return blocks, allocated blocks Listed in the 
; re tt 6 Z : : window are recorded in the file header. 
: 480 3 5 1! CALLING SEQUENCE: 
; ret ? § : : STALEXTEND (P_COUNT, RET_COUNT) 
: 4810 6 8 1 i INPUT PARAMETERS: | 
3; 4811 6 7! P_COUNT: if positive, the number of new blocks to allocate 
3; 481 6330 1! if negative, the number of blocks to return; also 
: rt} ? 1 ! : the signal to build header map pointers. 
: 4815 6 : 1! IMPLICIT INPUTS: 
: t513 ° : ! : CURRENT_MTL: MTL of file in process 
; 4818 Q 36 1 § OUTPUT PARAMETERS: 
; 2333 ° , 1 : RET_COUNT: address into which to return count of blocks allocated 
3 aaa 6 33 1 IMPLICIT OUTPUTS: 
: 468 5 6341 1! _— 
3: 4824 6 ri} 1 ! ROUTINE VALUE: 
: rt ; ° i ; success or failure status 
> 4827 6345 1 | SIDE EFFECTS: 
3; 4828 6 #6 1! NONE 
3; 4829 6347 1! 
3; 48 6348 1 !-- 
: 4831 6349 1 
3 ret} 6 39 BEGIN 
3 tB3a g 2 LOCAL 
3; 4835 635 STATUS ! general status value 
3 rity, 6354 BLOCK Count, ' rounded form of requested count 
3; 48 6355 NEW_COUNT, ' count of new blocks allocated 
3 rt 6 2$ NEW_LBN, ' LBN of same 
3 4 6 MTL REF BBLOCK, ! address of MTL for volume set 
: 4840 6 28 ud REF BBLOCK, ! pointer to current window segment 
3 4841 635 LAST_W REF BBLOCK, ! pointer to previous window 
3 Be ° ? p REF BBLOCK; ! pointer to current window pointer | 
: | 
: 4 6 
; dace 6 - ' Round the block count and do setup. | 
: 4 6365 2 
3; 4848 6 BLOCK_COUNT = (.P_COUNT + .CURRENT_VCBCVCB_CLUSTER) = 1) | 
; rth ° 6 /~ CURRENT_VCBCVCB-CLUSTER] * .CURRENT_VCBCVCB_CLUSTER]; | 
> 4851 £369 .RET_COUNT = 0; | 
| 
| 
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Standalone ACP 1b-5e -1984 00:42: AX-11 Bliss-32 v4.0-74 p 
STA.EXTEND = extend a file meets rae Ta HPS TS TTC Pe age 15 
637 MTL = funn NT 
$ f IF .MTLCMTL WINDoUs EQL 0 THEN RETURN SS$_FILNOTACC; 
7 ! ee bo allocation if requested. Record the new blocks in the 
6 n ‘ow We 
ge 
6 g IF .BLOCK_COUNT GTR 0 
6 £8 THE 
6380 T STA_ALLOC BEST { gBrock COUNT, NEW COUNT, NEW_LBN) 
6 1 Hien RETURA S sss rev IceFU LL; 
: ADD _WINDOW_MA I CAT _WINDOW], .MTLCMTL_FID_RVNJ, .NEW COUNT, .NEW_LBN); 
6 RET_COUNT = PNEW C 
So Bead 
6 36 ! Otherwise this is a request to truncate allocated blocks and finish 
6 4 ! off the file header. First truncate the requested number of blocks 
6 Hey out of the window. 
e 90 
6391 ELSE 
6 3 BEGIN 
639 BLOCK_COUNT = =.BLOCK_COUNT; 
6394 UNTIL “BLOCK. COUNT LEG 0 
6395 DO 
6396 4 
6397 4 
6398 4 i ; Sati WINDOW); 
6399 4 UNTIL .WCWCBLLINKI EQL 0 
6400 4 
6401 3 BEGIN 
ote LAST_W = .W; 
6403 ; W = TWCWCB_LINK); 
6405 4 IF .WCWCB_SIZE) EQL 0 THEN EXITLOOP; 
6407 4 + WCB_S_HEADER + (.WCWCB_SIZEJ-1) * WCB_S_ENTRY; 
6408 4 IF “wetwca. COUNT] GTR .BLOCK_COURT 
8 Eo lag 
6411 2 PCWCB_COUNT] = .WPCWCB_COUNT) = .BLOCK_COUN 
ae FREE “Bcocks (.BLOCK COURT, .WPCWC 6 LBNI + UUPewce.. COUNT)); 
641 T~COUNT = ..RET_COUNT - “BLOCK BO OUNT; 
6414 ExITCOOP; 
6415 END 
6416 
6417 & ELSE 
6418 BEGIN 
641 FREE_BLOCKS (.WPCWCB COUNT]. sypcuce LBN}); 
6420 .RET-COUNT = ..RET_ COUNT - cuce COUNT 
6421 BL OCR COUNT s BLOCK COU COUNT ol wtB_ COUNT: 
64 : WEWCB-SIZE) = .WCWCB"S =f 
64 IF -WEWCB_ $1264 a 0 
64 4 AND .LAST~W NEQ 
o ; AND -WCUCE_RVN NJ EQL .LAST_WCWCB_RVN) 


: 
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49 


i 


ee 


R 
Standalone ACP Sep-1984 Ax-11 Bliss-32 V4.0-74 P 5 
STA EXTEND = extend a file 12:8 Sep- 1382 90: $f: 8 BACKUP.SRCJSTA Teale S350 age 15 
64 BEGIN 
64 DELETE_WINDOW 
4 LAST_WCWCB_LINK 5" ; 0; 
6430 END;~ 
6431 4 END; 
o § END; 
64 ! Now build map pointers in the file header using the pointers in the 
6435 ' window. 
64 1 
64 
64 8 ATL CTL WINDOW); 
6440 OR "UCUCB “AVN FQL . CURRENT_VCBCVCB_RVNJ 
6441 DO Ww = .WIWCB_LINK); 
b4ue 
644 UNTIL .W EQL 0 
6444 DO 
6445 & GIN 
6446 4 WP = .wW + WCB : HEADER; 
6447 4 DECR J FROM .Q{@CB_SIZE) To 1 
6448 4 DO 
6449 5 BEGIN 
6450 6 STATUS = CF «CURRENT VCBCVCB_ODS_2 
6451 N MAKE apon INTER ecs saice POINTER1) 
645¢ CMtcATe , WP COUNT], .WPCWCB_LBN)); 
645 IF NOT status pcr RETURN tatuse” 
6454 WP = .WP + WCB_S_ENTRY; 
6455 4 END: 
6456 4 W = .WOWCB_LINK); 
6457 3 END; 
6458 END; 
6459 
6460 2 TRUE 
6461 1 END; ! End of routine STA_EXTEND 
O1FC 000 -ENTRY STA_EXTEND Saye R2,R3,R4.R5,R6.R7,.RB : 6314 
58 00000000' EF 9 9000 MOV CURRENT_VCB, ; 
5E 08 Ce 000 SUBL : 
30 6 b oc MOVL ia vCB, RO + 6366 
1 046 A F MOVZWL : | 
51 04 at c O13 ADDL 2 P COUNT, "a1 : 
2 06 A Hf 8019 MOVZWL 4(RO), R2 + 6367 
1 5 £6 9915 DIVL2 : 
4 06 Ad 3¢ 09 MOVZWL 4 (RO) , BLOCK_COUNT : 
4 51 C4 4 MULL2 BLOCK _COONT : 
08 BC D4 7 CLRL RR T COUN + 6369 
56 FC ABS DO OO02A MOVL URRENT_MTL, MTL F 6370 
5 08 A p nov (MTL), "R7 ; 6371 
9? 9A MOVZBL #172, RO ; 
04 000 3 


B 
STAACP Standalone ACP Ib-se =1984 00:42: AX-11 Bliss-32 V4.0-74 
$04-500 STA_EXTEND = extend a file 1 ~3007 1383 90:02:63 YBACKUPSRe STRAND O3004 
4 9 1$: TSTL OCK_ COUNT 
20 ts B BLEG % . 
E pb D PUSHL § 
08 AE OF F PUSHAB NEW_COUNT 
54 OD ae PUSHL BLOCK COUNT 
DB69 = CF ; re 4 CALLS #3, STA_ALLOC_BEST 
6 049 BLBS 
0850 8F ¢ O4¢ MOVZWL #2128, RO 
6E DD 00052 2$ PUSHL NEW_LBN 
08 AE pp 0054 pUSHL NEW” COUNT 
7E iC Ag A 00 7 MOVZBL 28(ATL), -(SP) 
57 DD 8 PUSHL 
E05¢ CF 04 FB 00 CALLS #4, ADD WINDOW MAP 
08 BC 04 AE p 006 MOVL NEW_COURT, @RET_COUNT 
0089 31 0006 RW 15$ 
54 24 it: 006A 3$: NEGL BLOCK_COUNT, BLOCK_COUNT 
4 D5 00060 4$: TSTL BLOCK COUNT 
63 15 0006F BLEG }4~=s&S$. 
5 94 00071 CLRL LAST_W 
52 57 DO 00073 MOVL 7, @ 
62 D3 60076 5$ TSTL ss CS 
08 13 0007 BEQL © 6$ 
55 3g DO 0007A MOVL  W, LAST_W 
52 62 00 0007D MOVL (W), 
F4 11 90080 BRB 5% 
08 A2 95 0082 6$ TSTB 0s - Bw) 
4D 13 0008 BEQL 8$ 
50 08 A2 9A 90087 MOVZBL 8(W), RO 
53 C A240 7E 00088 MOVAQ 12(WSCROJ, wP 
54 63 01 90090 CMPL (WP), BLOCK_COUNT 
15 13 0009 BLEG 430s 7$ 
63 54 ¢2 00095 SUBL2 BLOCK_COUNT, (WP) 
7E 04 A3 63 C1 00098 ADDL3 (WP), 4(WP), =(SP) 
54 DD 0009D PUSHL BLOCK COUNT 
pB9c = s«CF 02 FB 0009F CALLS #2, FREE BLOCKS 
08 BC 54 C2 OO0A4 SUBL2 BLOCK_COONT, @RET_COUNT 
2a 11 000A8 BRB 
7E 63 7D OOOAA 7$ MOV (WP), =(SP) 
DB8E CF 02 F SAD CALLS #2, FREE BLOCKS 
08 BC 63 C2 0008 SUBL P), @RET COUNT 
4 6 § 0086 SUBL (WP), BLOCR_COUNT 
08 A2 00089 DECB ) 
AF 12 000BC BNEQ 4$ 
55 05 0008 TSTL LAST_W 
Ag 1 99¢ BEQL 
OA AS OA A2 91 000¢ CMPB =s-«10(W),,. 10¢LAST_w) 
AG 12 000C¢ BNEQ 4$ 
32 DD 00¢9 PUSHL Ww 
or?s) CF FB 0 cB CALLS #1, DELETE_WINDOW 
$3 : 990 CLAL (LAST_W) 
3 1 00002 BRB 4 
52 5 p D4 8s MOVL 7, W 
OF 07 9$ BEQL 108 
50 6 p 09 MOVL FURRENT VCB, RO 
06 AO OA A2 91 0000C CMPB (Ww), BROS 
05 13 000E1 BEQL 108 
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Routine Base: 


62 
14 sf 
08 As 
81 
dc43—s«CF 
05 
DBCB-SOCCF 
63 
oc 03 
8 
: 
61 

CODE + 29A9 


16 
0 BORE 
Ve 
Hs 
be 
nt 
oD og 
£8 ort 
i a 
MT borat 
00 90153 


Sept 
~Sep-1 


— 
— 
wn 
ee 


—— 
wr 
Sah td 


4 242: 

3ae 99:82:63 
MOVL y 
BRB 9 
TSTL wW 
BEQL 15 
MOV 0 
MOVZBL 8( 
INCL J 
BRB 14 
MOVL CU 
BBC A 
MOVAB MA 
BRB 13 
MOVAB MA 
mMOva (Ww 
PUSHL Mg 
CALLS i 
BLBC ST 
ADDL2 #8 
SOBGTR J, 
MOVL CW 
BRB 10 
MOVL #1 
RET 


~UVKRRK: ~ 
“= 3s~-m mm 


=" 
-—-£c 
£cnum 


> Q~w s 


Fee ae | 
zr 
—w 


D 
So 


free Bliss-32 V4.0-74 


BACKUP. SRCJSTAACP.B32; 


NT_VCB, R1 


(RT) 


) 
. 16$ 


{2s 


POINTER, R1 
POINTER1, R1 
=(SP) 


| 

, 
Page 15 
6461 | 
6443 


644 
644 


<u" 


: Find the accessed file. If none, error. 
CURRENT_WCB = .CURRENT_MTLCMTL WINDOW 

IF .CURRENT_WCB EQL 0 THEN RETORN SS$_ Te LNotacc: 
: Do the 1/0. 

CALLGC. AP, R_W_VIRTUAL) 

END; 


S 
Standalone ACP 16- Sep-1984 AX-11 Bliss-32 V4.0-74 
STA. RDWRVBLK - read/write virtual Q10 routine 1 73e0- 1382 99: 34: 83 YBACKUP. SRCISTAACP.B32; 
§ 64 ¢ 1 ZSBTTL “STA_RDWRVBLK = read/write virtual Q10 routine 
: oe } ROUTINE STA_ RDWRVBLK (EFN,CHAN,FUNC,1OSB,ASTADR et P1,P2,P3,P4,P5,P6)= 
; 6465 e+ 
: gee? 1 i FUNCTIONAL DESCRIPTION: 
; tre | 1! This routine executes IO$_READVBLK and [OS$_WRITEVBLK in the 
; ores : : standalone environment. 
; 6471 1 | INPUT PARAMETERS : 
: ah) : } As for $Q10(W) system service. 
: ber% 1 | IMPLICIT INPUTS: 
; oh } : CURRENT _MTL - Pointer to MTL for selected volume set. 
; ii OUTPUT PARAMETERS: 
; 78 1! NONE 
$ i 2% 
3 O 1 ! IMPLICIT OUTPUTS: 
3 1 ! NONE 
; BS 1! ROUTINE VALUE: 
: Se : : Completion status. 
: 86 1! SIDE EFFECTS: 
3 87 1! ONE 
3 4 . § 
3 9 ; ed 
; BEGIN 
: BUILTIN 
; 1 


RAAAAAREE ERE EEE EEE EEE RRR RR RRR 


GFaRSSSSLSSPaSSS 


0000 00000 STA_ROWRVBLK: 
WORD Save nothing 


50 00002900" EF DO 9002 MOVL URRENT MTL 
00000000° €F 08 AQ p 0009 mov (RO), CURRENT: _WCB 
50 AC BF A 31 MOV ZBL #172, RO 

DFFF CF 6C FA 00018 1$: CALLG (AP), R_W_VIRTUAL 


rove gs 


atin 


STAACP Standalone ACP 1b-se -1 AX-11 Bliss-32 V4.0-74 P 9 
voe-600 STA_RDWRVBLK = read/write virtual Q10 routine 730071 38e 99: $f: §3 BACKUP .SRCJSTAA to 83004 29° 38) 
04 00010 RET 3 6505 

| 

; Routine Size: 30 bytes, Routine Base: CODE + 2AD0 


LC CC tll tit iltilittlatLt  ‘ttlttllt;itlttt t 


q 
STAACP Standal ACP 16-5e =1984 00:42: AX-11 Bliss-32 V4.0-74 
STALACCESS = access Q10 routine 1 =30871382 90:82:63 YBACKUP SRE STAAL 83004 
3; 4 1 ZSBTTL "BTA AACEE SS = access Q10 routine’ 
5 ¢ : ROUTINE STALACCESS (EFN,CHAN,FUNC, IOSB,ASTADR,ASTPRM,P1,P2,P3,P4,P5,P6)= 
: $938 gio i 
3; 4995 g 11. 1 =! FUNCTIONAL DESCRIPTION: 
3 pees] 6 \§ : This routine executes IO0$_ACCESS in the standalone environment. 
: 4998 g 1% 1 § INPUT PARAMETERS 
3 4999 ° : : : As for $Q10(W) system service. 
; 5001 6 3 j i IMPLICIT INPUTS: 
: § 2 8 : : CURRENT _MTL - Pointer to MTL for selected volume set. 
; 6520 1 | OUTPUT PARAMETERS: 
; 5005 6521 1! NONE 
3 B08 65 ¢ 1! 
: 500 $2 1 ! IMPLICIT OUTPUTS: 
<r iia 
; 5010 6526 | i ROUTINE VALUE: 
: Bi; $2 : : Completion status. 
; O13 65 § 1! SIDE EFFECTS: 
3; 5014 65 1! NONE 
Be BRT 
; a $2 ! meee 
: 501 6535 2 MAP 
; 5020 65 FUNC: BBLOCK, ! 1/0 function code 
3 1 $3 eee Pl: REF BBLOCK; ! Descriptor for FIB 
: 50 § 65 3 18: REF $Bp, OCk. ! Address of the FIB 
3; 5024 6540 LOCAL_HEADER:  BBLOCK(512], ' Local header buffer 
3; 5025 654 HEADER: REF BBLOCK, ! Pointer to header 
3; 50 $ 654 STATUS, 
: 50 654 VBN; ! Starting VBN of file 
: 36 $38 
; 50 654 
3; 5031 o2n$ ' If necessary, access the spec ttted file. In the standalone ACP, the only 
3; 50 $ $268 : FIB field used is FIBSW_FID. 
Be HF ht mee 
: 50 65 EGIN 
5 O39 $236 16 = .PICDSCSA_POINTER): 
: 50 o238 IF .FUNCCIOSV_ACCESS) 
: 3020 6356 ; BEGIN 
: 5061 557 4 ' 
: ah} e558 4 ! Access specified: check for file already accessed, save the file 
3; 504 6559 4 ' JD, set up to use the MIL header buffer, read the header, and create 
5 : $2 ¢ ? the window. 
; 5046 6562 4 IF .CURRENT_MTLCMTL_WINDOW) NEQ 0 THEN RETURN SS$_FILALRACC; 


$s 


te 
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ess > access Q10 routine If sp-}obe 99:32:83 Yexcnue’ see STAAL O30¢4 


vm 
Pd 
owe 
or 


—~ 


PIOEAAAOAAO 


DONO 


SSE 


w 


SoSSS oS SSS OO OOOO OOOO SSS 


ot 


BPS RG III III OS OT 


Oooooeeo 
>in ~“ 
Sao NANI SS 
PARA AAAAAAA AAA AAO 
Soo SUA 
SESE 


Wn 


QuE ei : 
QUEUE HEADERS 


_HEADERS(O); 
Ue-teABERSE ad: 
nO: 7 
ATL HEADER; 

Tetriesw FIb_NUM], .HEADER); 
T TURN .STATUS; 

csi LENGTH] _GEQU FIBSC_EXTDATA 
= 

c 

C 


LOMTL_F 
MTLF 
LiF 

L 

E 

H 


18S. pxven) NEQ 0 
.F IBCF ISL EXVEN) 

REATE winnog -HEADER, .FIBCFIBSB_FID_RVNI, 

URRENT MTLCMTL WINDOW), .VBN, .FIBCFI8$8_WSIZE)); 

If not ~STATUS TREN RETURN .STATUS; 


BEGIN 


i No access specified: allow file already accessed, use the local 
: header buffer to avoid destroying context, and read the header. 


HEADER = LOCAL_HEADER; 
TATUS = READ READER(FIBCEIBSW_FID_NUM], .HEADER); 
a «STATUS THEN RETURN .STATUS; 


IF .CURRENT MTLCMTL_WINDOW] EQL 0 THEN RETURN SS$_BADPARAM; 
HEADER = .CORRENT_MTLCMTL_HEADERJ; 


PAPAAAAAAAAO 
AANA AAAAAN 


SELESE 


: If necessary, build the file's ACL. 
IF ,,CURRENT ATLCMTL_ACLFLI EQL 0 


BEGIN 
CURRENT _MTLCMTL_ACLFL] = CURRENT _MTILCMTL_ACLFLI; ! Initialize ACL 
Fenn are MTL_ACLBLJ = at te le MTL_ACLFLJ; ! queue head 


eSeeeeeess 


SESSISSRESEESLES 


DOA MMNIE & HF FWA MGPIPINININININI MN BEEP EE PUPP PPP PPP PPP PPP PPE 


ee Ho a HH 


DONO E WP 


SSSSSSSSS- 


T . CURRENT _MTLCMTL_SEQ_DISK 


BEGIN 

STATUS = ACL_BUILDACL (); 
IF NOT .STATOS 

THEN 


BEGIN 
IF .FUNCCIOSV_ACCESS) 
THEN 


BEGIN 
ACL DELETEACL QO; 

CURRENT MTLCMTL_ACLFL) = CURRENT MTLCMTL_ACLBL) = 0; 
DELETE_QINDOW (TCURRENT_MTLCMTL_QINDOWJ); 
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URRENT MTLCMTL_WINDOW) = 0; 


RET STATUS; 
END; 
END; 
END; 
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: If specified, read attributes. 
if .PS NEQ 0 
HEN 


BEGIN 
STATUS = READ_ATTRIBUTES(.HEADER, .P5, (IF .P1 EQL 0 THEN 0 ELSE .PICDSCSA_POINTER])); 
If NOT .STATUS 


Mun 


BEGIN 
IF_ .FUNCCIOSV_ACCESS] 
THEN 


ed ad ad ed dd 
CNAME WN" OOONOUE wry 


BEGIN 
ACL_DELETEA £0 
CURRENT MTL poACLEL] = CURRENT ATL CAT ~ACLBLI = 0; 
E_GINDOW ([ CURRENT ATL CATE Ge GIND 
CURRENT. ATL MTL_ WINDOW] "= 
RETURN .STATUS; 
END; 


SSSSSSSSSSSSSSSSSSSASSPAE PDAS 


wn 


: Completed normally. 


aa at tt a a ik at a in a tt 


WN "OC OCONOUSWN—O0@ 


SSS. 


OOFC 00000 STA_ACCESS: 
WORD ~ oe R4 


x Save RS,R6,R7 :; 6507 
MOVAB CURRENT : 


(000 R7 * 
00000 MOVAB it ECHEADERS R6 ; 
MOVAB ; 
ere MOVL + 6550 
cae Pe 
3 | 
52 04 MOVL 4(R3), FIB ; 6553 | 
79 oc A BBC UNC, : 6554 
5 MOVL URRENT_MTL, RO : 6562 | 
08 sit (RO) : 
50 AG MOVZBL #164, RO ; 
RET ‘ 
51 MOVAB QUEUE HEADERS > 6564 — 
06 Ab MOVL R1, QUEUE OEE ADERS +4 : 
66 MOVL 1, QUEUE"HEADERS : 
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R1 . “HEADERS®B 
HEADERS+16, R1 
‘ HEADERS +20 
Ri, QUEUE HEADERS+16 
4(F1B), 2&(RO) 
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HEADER 


8(FIB), VBN 
(FIB), =(SP 
VBN 

#8, CURRENT_MTL, -(SP) 
8(F IB), -(SP) 

HEADER 

#3. CREATE_WINDOW 
LOCAL_HEADER, HEADER 
HEADER 

4(F 1B) 

We. READ_HEADER 

RO, STATOS 

STATUS, 8$ 

14$ 

URRENT_MTL, RO 
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Tus, 10$ 
FUNC, 13$ 
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STAACP Standalone ACP 18-50 Sep-1 AX-11 Bliss-32 V4.0-74 p 74 | 
00-000 STALACCESS = access Q10 routine 1 =3007 138% 99: $2: a BACKUP. SRC STAACP :B32; “4 pea 
03 11 QOOFA BRB 12$ : 
94 A3 DD OOOFC 11$: PUSHL  4(R3) : 
Ea DD FF 12$: PUSHL F : 
0000v CF FB 001 CALLS mE READ ATTRIBUTES ; 
DO 001 VL ATOS ; 
4 4 : 10¢ BLBS sa $ ; 
18 oc A 1 0010F C FUNC ; 
000000006 9 FS 114 138 CALLS ACL “BeLetEact : 
67 0 00118 VL i NT-MTL, R F 
10 AO 7¢ Olle CLRO nO) : 
0 AO DD 91 PUSHL : 
DDDS cr 0 FB 124 CALLS ODELETE WINDOW : 
0 67 DO 00129 MOVL at bE T_MTC, RO : 
08 AO D4 oi C CLRL R : 
50 54 DO OO1CF 14%:  MOVL STATUS, RO : 
04 901 : RET : 
50 01 DO 00133 15$:  MOVL #1, RO : 
04 001 RET ; 


; Routine Size: 311 bytes, Routine Base: CODE + 2AEE 
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Standalone ACP 1b-5¢ Sep- AX-11 Bliss-32 V 
CREATE CLEANUP = clean up after create failure 1 7350-1382 99: 3f: 83 BACKUP .SRC STAACP 
1 ZSBTTL “CREATE_CLEANUP = clean after create failure’ 
és ¢ 1 ROUTINE CREATEXCLEANUP (CREATE _Sfatusss » 
o9 § ; ioe 
66 § ii FUNCTIONAL DESCRIPTION: 
6660 1! his routine processes the extent List produced during an 10$8_ —s 
6661 1! nd frees the disk extents if the create failed. In any case, the 
$066 : extent List, the create List, and the window are treed. 
1 ' INPUT PARAMETERS: 
5 : : CREATE_STATUS = Create status. 
1 ' IMPLICIT INPUTS: 
e308 ! NONE 
6670 1 | OUTPUT PARAMETERS: 
$672 1 | — 
gore 1 ' IMPLICIT OUTPUTS: 
6674 1! NONE 
6675 1! 
oore 1 ! ROUTINE VALUE: 
eer? : } The create status. 
6679 1 | SIDE EFFECTS: 
6680 1! NONE 
6681 1! 
6682 1 !-- 
66835 1 
6684 BEGIN 
6685 LOCAL 
6686 REF BBLOCK; ! Pointer to list entry 
6687 
6688 
9434 : Free the extent List. 
6691 2 UNTIL REMQUE(.QUEUE_HEADERS(OJ, P) DO 
0696 BEGIN 
2633 : If the create failed, release the allocated disk blocks. 
66 if NOT .CREATE_STATUS AND .PLEXT_COUNT] NEQ 0 
669 THEN 
$638 ¢ PE RRENT VCB = vcB); 
67 4 FREE E BLOCKS‘. ptex count ; »PCEXT_LBNJ); 
sre 
44 ¢ : Deallocate the extent List entry. 
67 : FREE_VM(EXT_S_ENTRY, .P); 
67 END; 
$709 
6710 ! Free the create list if any errors occurred. 


ne Se 


4d 
4 
> 
- 
vw 


2 


—> 2 


BEARERS SSN ONON TS Seon SSELERRERSSSELE S 


PV PVIVSIVSIVSIVLIUSVSVSVSVIVDVSIUSUSUSVIVOIUSVSUSUSUSVSVSTSUSUSVSUSVSUSIOLSUSIOS SISOS ISISI SISOS 


| nk ttt ee 


ane 
NM—OCOONOUSWN—O 


Be Se Se Ge Ge Ge Se Se Ge Se Fe Ge Ge Se Ge Se Ge Ge Gs Fe Se Ge Ge Gs Te Ge Se Ge Se Se Se Gs Ss Ge Se Ss Se Se Se Ge Se Se Se Se Se Se Ge Se Ss Ge SoS Oe St Se Sees 


Vw 


SE - a 4 


Kk 9 | 
Standalone ACP 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 e 176 
CREATE CLEANUP = clean up after create failure 12280871 38e 0:92:63 EBACKUP SRE STAACP .B32; 79° (40) | 
71 4 
ee IF NOT .CREATE_STATUS 
24 THEN 
71 UNTIL REMQUE( .QUEVE_HEADERS(2], P) DO 
6715 BEGIN 
orig LOCAL 
ers Q: REF BBLOCK; ! Pointer to FID block 
671 
of , } Free the FID blocks. 
67 Z UNTIL REMQUE(.PCCRT_FID_FQHDR], Q) DO FREE_VM(CRT_S_FID, .0); 
6724 
$7 5 : Deallocate the create List entry. 
67 7 FREE_VM(CRT_S_BLOCKS, .P); 
67 : END; 
$780 
44 1 : Free the used file ID List. 
67 j UNTIL REMQUE(.QUEVE_HEADERS(4), P) DO 
6734 BEGIN 
6735 LOCAL 
4 $ HEADER: BBLOCK(512); ! File header buffer 
6738 
2524 : If the create failed, write a deleted file header. 
6741 iF NOT .CREATE_STATUS 
674 THEN 
6745 4 BEGIN 
6744 4 CREATE_DELHDR(PCCRT_FIDJ, HEADER); 
6745 4 WRITE_READER(PCCRT_FIDJ, HEADER); 
674 END; 
oree 
ts : Deallocate the create List entry. 
e720 FREE_VM(CRT_S_FID, .P); 
$736 END; 
ore 
6758 : Release the window if one exists. 
e737 if NOT -CREATE_STATUS AND .CURRENT_MTLCMTL_WINDOW) NEQ 0 | 
e728 BEGIN | 
760 DELETE WINDOW. CURRENT ATLCATL WINDOW) ; | 
761 CURRENT_MTLCMTL_WINDOW] = 0; 
$766 END; 
6764 | 
9709 : Return the original status. 
ore) . CREATE_STATUS | 
| 
| 
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iSoseoct9Re 90:42:28 


Save R2,R3,R4,R5,R6 
HEAD * R 
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, erie -vCB 
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a. 
#2, FREE_VM 


CREATE _STATUS, 7$ 
SQUEUE “HEADERS+8, P 


as(P), Q 
6$ 


#14 
Ae. FREE_VM 
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420 
#2, FREE_VM 


@QUEUVE_HEADERS+16, P 
SSEATE STATUS. 8$ 


(P) 
eee CREATE _DELHDR 


(P) 
#2, WRITE_HEADER 


4 
#2, FREE_VM 


CREATE STATUS 
RR 0 


URRENT_MTL, 
RO) 


URAENT ATL. RO 
#1, DELETE_WINDOW 


AX-11 Bliss- 
BACKUP. SRC STaA 


ATE "STATUS, 2s 


FREE. Blocks 


$oa-600 PREATE CLEANUP = clean up after create Saag if: 20-1384 99:92:63 BAckUP SAE TSTAALP 3004 Page 138 
50 MOVL CURRENT ATL, RO : 6761 
50 f ae 06 BIS 108: nOVL CREATE_STATUS, RO ; 6768 


; Routine Size: 173 bytes, Routine Base: CODE + 2C25 


Nn 9 
STAACP Standalone ACP 19° Sep-1 AX-11 Bliss-32 V4.0-74 
voe-000 CREATE_EXTHDR = create extension header 1a-Sep 1 198 99: 2¢: 5 BACKUP.SRC STAACP “B30; 
; 5 6768 1 ZSBTTL ‘CREATE_EXTHDR = create extension header 
; $ eft } ROUTINE CREAT “EXTHDR (OLD_HDR ,OLD_FILE_ID,NEW_ WOR. NEW_FILE_ID)= 
; 8 6776 1 t+ 
3 6775 1! 
3 60 6774 1! aac «os DESCRIPTION: 
: 5 2 oft? : : This routine creates an extension header. 
; e8 e776 1 ! INPUT PARAMETERS: 
3; 5264 ore 1: ¥ - Pointer to current file header. 
> 5265 6779 1! OLD_FILE_ID - File ID of current file header. 
3 08 6780 1! _HDR - Pointer to buffer where extension header is built. 
: 24 of 1 : } NEW_FILE_ID - File ID of extension file header. 
: 5269 eres 13 IMPLICIT. INPUTS: 
: 2 4 or ee } : CURRENT _MTL - Pointer to MTL for current volume set. 
3 3 ie} 6786 i ! OUTPUT PARAMETERS: 
: 5274 6788 1! 
: 3st? ore ’ } LORE GURUS: 
; 3558 6791 1: 
3; 5278 679 1 ! ROUTINE VALUE: 
: asf or32 ! } Completion status. 
BB BRE I | sume epgers: 
3 5 He 6797 1! 
3; 5284 6798 1 !-- 
3; 5285 6799 1 
3; 5286 6800 BEGIN 
3; 5287 6801 Pp 
3; 5288 680 OLD_HDR: REF BBLOCK, ' Pointer to file header 
3; 5289 680 OLD. FILE ID: +} BBLOCK, ! Pointer to file ID 
: 5290 6804 F BBLOCK, ! Pointer to file header 
: 2$3) on? 2 NEW" PILE. ID: REF BBLOCK; ! Pointer to file ID 
; 2595 6807 
; 253¢ rete {0 OLD _MORCFUCSS _STRUCLEV) EQL 2 
: 5256 6810 BEGIN 
3: 5297 6811 
; 3399 6 i } Make sure the segment number will not overflow. 
3 3300 6814 if {OLD HDRCFH2SU_SEG_NUM] GEQU 65535 
; 330¢ 6816 RETURN SS$$_HEADERFULL; 
: 6818 
$ 8 e819 : Put the extension Linkage in the previous header. 
; 3307 6821 ou. WOREEH $W_EX_FIDNUM = NEW -FILE_1D F1DSy_ NUN 
3; 5308 68 § OLD-HDR H2eSwW W~EX~ FIDS A = W"FILE-1D 
3; 5309 68 OLD_HDR i oe W-EX-FIDRVNJ = NEU “FILE 1D HDR 
: 5310 68 4 e “OL DF BEFIDSB R VN) EQL [NEW_FILE vay a 
3; 5311 6825 HER it “HDREFHOSBE EX_FIDRVN) = “0; 


ue - ~~ 
} 
' 
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10 
Standalone ACP 16- Sep- AX-11 Bliss-32 V4.0-74 Page 180. 
CREATE_EX XTHDR - create extension header atep- 1382 90: ¢f: 83 BACKUP.SRCJSTA ACP 3: 83504 Mal) 
é END 
ELSE 
BEGIN 
LOCAL 
MAP_AREA: REF BBLOCK; ! Pointer to map area 


MAP_AREA = .OLD_HDR + .OLD_HORCFHISB_MPOFFSETIJ*2; 


Make sure the segment number will not overflow. 
if MAP_AREALFM1$B_EX, SEGNUM] GEQu 255 


PAA AAAAAAAAO 


WN "SO OCONOUNESWN “OOOO uirn 
000000000: 


WAI AID POPOIPIPONIPONUNPYD 2 2 2 OS Os 


6840 RETURN SS$_HEADERFULL; 
6841 | 
oetg | 
ont? : Put the extension Linkage in the previous header. 
6845 hap -AREACFM1SW_EX_FILNUM] = .NEW_FILE_IDCFIDSW_NUMJ; 
6846 MAP_AREACFM1$W_EX_FILSEQ) = .NEW_FILE_IDCFID$W_SEQ); | 
6847 END; 
6848 

6849 


f the old header and the new header occupy the same buffer, the old header 
S an extension header. Otherwise, it is the primary header. Write the old 
eader if necessary. 
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340 F .OLD_HDR EQL .NEW_HDR | 
341 6855 HEN | 
362 685 BEGIN 
34 685 LOCAL ; 
344 6858 STATUS; !' Status variable 
345 6859 
346 6860 
347 6861 NOT .QUALCQUAL_VOLU) 0 
348 686 .QUALCQUAL_VOLO_ VALUES EQL .OLD_FILE_IDCFID$B8_RVNJ | 
350 6864 BEGIN 
351 6865 STATUS = WRITE_HEADER(.OLD_FILE 1D, .OLD_HOR); 
32¢ 686 IF NOT .STATUS THEN RETURN”. STATUS: 
35 686 END; 
354 6868 END 
32? 6869 ELSE 
56 6870 CHSMOVE(512, .OLD_HDR, .NEW_HDR); 
324 rte | 
359 687 IF _.NEW_HDRCFH2$B_STRUCLEV] EQL 2 
360 6874 THE 
56 6873 BEGIN 

i 
$68 6 g : Place the file ID in the new header. 
365 687 EU. HDR FH $W_FID_NUM) = .NEW_FILE a iitattis NUM); 
366 6880 NEW-HDRUFHOSW_FID-SEQ) = NEW FILE-IDCFID$W~SEQ]; 
36 6881 NEW_HDR 4 $B"F ID RVN = 
368 2 NEW-HDRCFHOSB-FID-NMX) = WEW_FILE_1DCF 1D$B_NMX); 
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10 
STAACP Standalone ACP 1$- -S$ep-1984 AX-11 Bliss-32 V4.0-74 Page 181 
y0e-000 CREATE_EXTHDR = create extension header 14- eet fi 99: $f: 83 BACKUP’ SRE ISTAACP.B30¢1 mt 
3 9 6883 
3 0 6884 
: t} ? 5 Set the extension header back Link to point to the primary header. 
; ig 6 ; We _HDREFH2$W_BK -FIDNUM) = CURRENT MTLEMTL_F1D_NUMJ; 
3 5374 rs § NEW_HDR FH SWIBK-FIDSEQ) = .CURRENT-MTLCMTL_ =f 1D. “SEQ | 
; 5375 6 NEW. HORE Hose Bk KAP LDRVNI ka CURRENT “MTLCMTL— FID “RVNW); | 
3 18 6890 A be } EQ NEW FILE_TDLFIDSB_RVNI 
3 oor 91 THER Neu. HDR raose. Ok fib VN] = 0; 
He Be | 
: s) 6895 Finish initializing the new header. | 
: Be 6896 NEW_HDR FH $u_SEG NUN) = Nt. HORCFH2$W_SEG_NUM) + 1; | 
: 538 689 NEW_HDRCFHOSW_EX_FIDN 
3 2386 6898 NEW-HORCFH SUnEXTFIDSeO : 
; 5385 6899 NEW_HDRLFH2SW_EX FIDRVN) = 0; 
; 5386 6900 NEW-HDRCFH2SB_MAP_INUSEJ = 0: | 
; 5387 6901 “HDREFH $V-conTic} = FALSE; 
: 5388 690 NEW-HDRCFH2$V~LOCKED] = FALSE: 
: 5389 690 BBLOCKCNEW_HDRCFH2SW_RECATTRJ, FATSL_HIBLK) = 0; | 
; 5390 6904 BBLOCKCNEW_HDRCFHoSW_RECATTRJ, FATSL_EFBLK) = 0; 
: 5391 6905 BBLOCKCNEW-HORCFH2SW_RECATTR], FATSW-FFBY1e) = 0; 
: 3398 6906 | 
; 539 6907 | 
3 5394 6908 ! Truncate the ident area to provide more space for the map area. 
3 2392 ooNR Clear the map area. 
: 2399 6911 NEW_HDRCFH2$B_MPOFFSET) = . DRCFH2$B_IDOFFSET] + SBYTEOFFSET(FI2$W_REVISION) / 2; 
: 2398 691 NEW_HDRCFHOSB_ACOFFSET) = SBYTEOF ESET (FH2SUL CHECKSUM) / 2; 
3 5399 691 NEW” HORT iy $87 RSOFF SET) = $BY TEOF FSET (FHeSW_CHECKSUN) / 2; 
: 2400 6916 CHSFILL( 512 = .NEW_HDRCFH2SB_MPOFFSETJ*2, .NEW_HDR + .NEW_HDRCFH2$B_MPOFFSET)*2); 
; 2402 6916 ELS | 
30 BNE Bat | 
3 5405 6919 MAP_AREA: REF BBLOCK; ! Pointer to map area | 
ee ge | 
: 5408 6928 MAP_AREA = .NEW_HDR ¢ .NEW_HORCFHISB_MPOFFSET] * 2; 
m3 GR | 
: 5411 69 cs ! Place the file ID in the new header. 
: a418 69 $ NEW. HDRCFH1$W_FID_NUM] = .NEW_FILE_IDCFIDSW_NUM); 
3 eei8 69 8 NEWHDREFH1SW-FIDSEQ) = .NEWTFILE~IDCFIDSW-SEQ]; 
: 541 69 
3 i 24 ? Finish initializing the new header. 
: e419 69 : BBLOCK(NEW_HDRCFH1$W_RECATTR], FATSL Sites: s 0: 
3 5420 69 BBLOCK (NEW WOR FHISW =RECATIRY FATSL-EFBLK] = 0; 
3 5 1 6935 BBLOCKCNEW-HDRLFH1$W-RECATTR ATSO “FFBYTE) = 0; 
3; 54 ‘ 69 MAP_AREA ASG. EX_SEGNUM] = .MAP_AREALFM1$B8_EX_SEGNUM) + 1; | 
3; 54 69 MAP~AREALFM1$W~EX-FILNUM) = 6: | 
: 34 4 69 § MAP~AREALFM1$W_EX~ FILSeo = | 
3 5425 69 MAP“AREALFM1$B_INOSEJ = 0; | 
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one ACP AX-11 Bliss-32 V4.0-74 
ATE = create Q10 service routine 1eSep-198e : 32: 83 BACKUP.SRCJS TAC “833; 
ZSBTTL "STA_CREATE = create Q10 se ryice routine 
ROUTINE STALCREATE (EFN,CHAN,FUNC, 10S * ASTADROASTPRN,P1,P2,P3,P4,P5,P6)= 
1o¢ 
FUNCTIONAL DESCRIPTION: 
: This routine executes IOS_CREATE in the standalone environment. 
i INPUT PARAMETERS: 
: As for Bald. oyeten service. However, a nonzero P6 points to 
: OUTPU TA TTBUF, which indicates that the IOS_CREATE refers to a file 
on an mage output volume. 
! IMPLICIT INPUTS: 
: CURRENT MTL - Pointer to MTL for selected volume set. 
i QUTPUT PARAMETERS: 
: NONE 
' 
i IMPLICIT OUTPUTS: 
: NONE 
' 
i ROUTINE VALUE: 
: Completion status. 
i SIDE EFFECTS: 
: NONE 
‘ 
feo 
BEGIN 
pyite BBLOCK, ! 1/0 function coge 
Pi: REF BBLOCK, : Descriptor for FIB 
Pe: REF BBLOCK, ! Descriptor for filename 
ete P6: REF BBLOCK; ! Pointer to OUTPUT ~ATTBUF 
FIB: ~ cel Ock. ! Pointer to F 
HEADER: BB OCe ! Pointer to primary header 
EXT_HDR: pat ocet si te), : Buffer for extension header 
CUR_HDR: ! Pointer to current header 
CUR FID: REF BBLOCK. : Pointer to current tise ID 
CHANNEL, ! Channel assigned to RVN 
CRT: REF BBLOCK, : Pointer to T entry 
STATUS, : Status retu 
TCOUNT, : Total all cated block count 
HCOUNT ; ! Count of file headers 


! Initialize and check parameters. 


' 

If CURRENT MILCMTL_WINDOW) NEQ Ve" Y SS$_F mee 
HEADERS = GUEUE “HEADERSES = QUEUE _HEADERS 
HEADERS = QUEUVE-MEADERS = QUEUE- HW ADERS 
HEADERS = QUEUE- ~HEADERSES = QUEUVE"HEADERS 
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; THgW’ MEADEREFHSL_MIGHWATER) = .P6CFAR_HIGHWATER); 
Pot stay sgt 
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FI2$S. FILENAME, 
H2$C_LENGTH, FI2$T_FILENAME)); 


BBLOCK HEAD F 
ever “FI2$S FILENAME, 0), 


+ 
CHSCOPY : 
gP¢CDSCSA_POINTERI+F 1288, F ILENARE, 
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oO Pod 
SERIAL 


ER 
MAX (.P2CDSC$W 

IN 
F12$S_FILENAMEXT, 
(BBLOCRE.HEADER + FH2SC_LENGTH, F12$T_FILENAMEXT]); 
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: Write attributes. 


STATUS = WRITE_ATTRIBUTES(.HEADER, .P5, .FIB); 
IF NOT .STATUS THEN RETURN .STATUS; 


: Create window. 


STATUS = CREATE_WINDOW( 
-HEADER, 0, CURRENT MTLCMTL_WINDOW] 
-FIBCFIGSL_EXVBN), MAXU(10,~.F IBLF IB8$B_WSIZE))); 
IF NOT ,STATUS THEN RETURN .STATUS; 
BBLOCK €.CURRENT_MTLCMTL_WINDOW], WCB_CUR_HWM) = .FIBCFIBSL_EXVBN; 
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: Process placement data. 


TCOUNT = 0; 
HCOUNT = 1; 


BEGIN 
IF .P6 NEQ 0 
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FUP PU LUST SUSVSUSUSUSUSUSVSU SUSI SVSUSUSVUSTSUSVSVISVSI STITUTION 


7101 THEN .BBLOCKCP6CFAR_PLACEMENT], DSCS$W_LENGTH] NEQ 0 
Ab ELSE FALSE 
5 at ND 
5 71 THEN 
5 7105 BEGIN 
5 71 LOCAL 
5 71 CRT: REF BBLOCK, ! Pointer to create List entry 
5 7108 FID: REF BBLOCK, ! Pointer to FID List entry 
H 7109 PLC: REF BBLOCK, ! Pointer to placement data 
338 my PLC_END: REF BBLOCK; ! Pointer beyond placement data 
711 
600 aig ! Placement data exists. Allocate a CRT entry and FID entry for the file 
ret aie : ID in the FIB8. 
60 711 CRT = GET _VM(CRT_S BLOCKS); 
604 ae INSQUE(.CRT, .QUE E HEADERS(23) 
605 7118 CRICCRT_FID_FQHDR) = CRT CRT_F10_BQHDR) = CRICCRT_FID_FQHDR); 
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QUALCQUAL_OF11) AND .QUALCQUAL_VOLU 


-8>; 
OM BSASK_PLC_FID TO BSASK_PLC_PLLBN OF 
BEGIN 
IF 

BEGIN 


BEGIN 


CBSASK_PLC_FIDJ: 
IF 


TYPE = .(.PLC)<0 
PLC = .PLC + 1; 
CASE .TYPE FR 
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EADERSC2) DO 


EQA QUEUE 
IF ~PLCEE10$B RVN) EQL 
crt 


CRT = .QUEVE HEADERS(2]; 


WHILE .CRT N 


mm 


BEGIN 
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DOOOO0O00000 


b_BOHDRI = CRICCRT_FID_FQHDRI; 


LOCKS) + ..PLC; 


_FLINK); 
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CRT = .CRT 


END 
LOCKS] = .CRICCRT 
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STAACP Standalone ACP 18-50 -1 242: AX-11 Bliss-32 V4.0-74 P 
v0e-000 STA CREATE - create Q10 service routine 305-1982 99:82:88 BACKUP. SRC $f AACP .B32; one 188 
; 5663 7176 sein 

3 eee 17 cht CRT PLocKs? = carcent i + .PLCCBSASL_PLC_COUNT); 
; 5 17 -PLC + BSASS PLC. 

3 066 179 4 4 

3; 566 4 4 

3 238 4, 4 CBSASK Puc -PLLBN): 

5 £50 71 cnrtC CRT BLOCKS] = .CRTICCRT BLOCKS) + .PLCCBSASL_PLC_COUNT); 
3 of) 1 2 «PLC + BSASS_PLC_PLLEN; 

3 ore 71 4 

3: 5674 71 4 COUTRANGE): 

; 307? 4 ¢ RETURN CREATE_CLEANUP(BACKUPS_INVATTVAL); 

} ers 71 4 TES; 

: 5678 71 END; 

3 of 4, END 

8 see 71 BEGIN 

3 568 71 LOCAL 

3; 568 71 CRT: REF BBLOCK, ! Pointer to create List entry 

: 2 71 FID: REF BBLOCK; i Pointer to FID List entry 

: 388 qt 

; 2689 7 ! No placement aw exists. Allocate a degenerate List containing just 
5 5689 i the file ID in the FIB and BLOCKS equal to ExSZ. 

: 5690 7 CRT = GET_VM(CRT_S BLOCKS): 

: 5691 7 INSQUE(.CRT, .QU gQuEve. HEADERS(2)) 5 

; 569 7 ert RT ete FQH = CRICCRT F16 —_* CRTICCRT_FID_FQHDRI; 

3; 569 7 CRICCRT BLOCKS) = .FIBCFIBSL_EXSZ 

3: 5694 7 FID = GET_VMC(CRT t FID); 

3; 5695 7 INSQUE(.FID, .CRTCCORT_FID_FQHOR]); 

3: 5696 7 FID CRT ID Nua = -FIBCFIBSW_F 1D_NUM); 

3; 5697 7 FIDCCRT_FID_SEQ) = .FIBCFIBSW FID SEQ); 

3 569 7 FIDCCRT=FID-RVNW) = .FIBCFIBSO_FID_RVNI; 

3; 56 7 END; 

wp 

: a4 : Allocate space, append map pointers and window pointers. 

3; 5704 7 CRT = .QUEUE HEADERS(2]; 

3 5705 7 CUR_HDR = .HEADER 

: 57 7 CURTFID = €18CF IB$¥_F 1D); 

: 57 7 IF ~F IBLFIB $L_EXSZJ“NEQ 6 

3; 5708 7 THEN 

: 5709 7 BEGIN 

: 5710 7 WHILE .TCOUNT LSSU .FIBCFIBSL_EXSZ] DO 

: 5711 7 4 BEGIN 

: ay 7 4 LOCAL 

: 571 7 4 FID: REF BBLOCK, } Pointer to FID en 

3 at} i ? RCOUNT; ! Requested Bi es ot from this CRT 
: 571 7 4 

3 a9 7 4 REMQUE (.C recat FID_FQHDR], FID); ! Get first FID entry 

: 718 , 4 INSQUE(.FID, QUEUE_READERS(4)); 
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create Q10 service routine 1o-808- 1382 90:92:68 }BACKUP SREISTAACP B32; 
: Generate an extension header if this is not the primary file ID. 
if .CRT NEQA .QUEUE_HEADERS(2) 
THEN 


me 
a 

“4 

om 


BEGIN 
STATUS = CREATE_EXTHDR(.CUR_HDR, .CUR FID, EXT_HDR, FIDECRT_FIDJ); 
IF NOT .STATUS THEN RETURN CREATE. CLEANUP(.STATUS); 

CUR_HDR = EXT_HDR; 

CUR-FID = FIDECRT F103; 

BCOONT = .HCOUNT # 1; 


_ = MINU(.FIBCFIBSL_EXSZ2] - . TCOUNT, .CRTCCRT_BLOCKS)); 


NOT ee eu ee OR ' Sequential disk output 
NOT .QUALLQUAL_VOLU gr ' Not /VOLUME restore 
y QUAL CQUAL VOLO. VALUE EQL .FIDCCRT_FID_RVN 


BEGIN 
LOCAL 
vcB REF BBLOCK; ! VCB for RVN 


DAMM DIES BS EEE EE EAA 
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RETURN CREATE_CLEANUP(SS$_DEVNOTMOUNT) ; 


AXXO 


= - - VCBCVCB_INIT_DONE) 
SIGNAL (BACKUPS$_NOVOLDATA, 1, VCBCVCB_DEVICE)); 


MOMIMOFUND 


SNS SNOOO 


WHILE TRUE DO 
BEGIN 


LOCAL 
EXT: REF BBLOCK; ! Pointer to extent List entry 


MIPINMENY 


: Generate extent List entry for new extent. 


EXT = GET_VM(EXT_S ENTRY); 
INSQUE(.ERT, . QUEUE HEADERSCO)); 
EXTCEXT_VCB) = .VCB? 


MUFITUNO 


IN 


DONA UE WN O OONO 


: Try to allocate remaining blocks. 
STA_ALLOC_BEST(.RCOUNT, EXTCEXT_COUNT], EXTCEXT_LBN)); 
! If no blocks were allocated, or if not enough blocks were 


! allocated and the allocation is required to be contiguous, 
! return device-full. 
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IF _ .FIDCCRT_FID_RVN] = .CURRENT_MTLCMTL_RVN_BASE] GEQU .CURRENT_MTLCMTL_SETCOUNTI 


CURRENT_VCB = VCB = .CURRENT_MTLCMTL_VCB(.FIDCCRT_FID_RVNJ-.CURRENT_MTLCMTL_RVN_BASEJ)); 
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a Q10 service routine 1$-Se-1984 99:82:63 YexcKup’ she STALE O3044 
! 


if 
-EXTEEXT COUNT EQL 0 OR 
saat XTCEXTZCOUNT] LSSU .RCOUNT AND .FIBCFIB$V_ALCON] 


RETURN CREATE _CLEANUP(SS$_DEVICEFULL); 


! Append the map pointer. For ODS-1, append one maximal pointer at 
! a@ time so that header overflow can be cleanly detected. If the 

' header should fill, allocate an extension header from the List 

i hanging from the CRT entry. If all headers have been used, fail. 
BEGIN Loca i; 

= .EXTCEXT LB 


L NI; 
WHILE .L LSSO .EXTCEXT_LBN] + .EXTCEXT_COUNT) DO 
BEGIN L CAL C; 
C = .EXTCEXT LBN) + sEXTCEXT_COUNT - Lk: 
IF NOT .VCBLUCB_ODS_2 
THEN 
BEGIN 
IF .C GTRU 256 THEN C = 256; 
STATUS = MAKE_POINTER1(.CUR.HDR, .C, .L); 
ELSE 
STATUS = MAKE_POINTER(.CUR_HDR, .C, .L); 
IF .STATUS 
THEN 


L=.t¢ .C 
ELSE IF REMQUE(.CRTCCRT_FID_FQHDRIJ, FID) 
. RETURN CREATE_CLEANUP(SS$_HEADERF ULL) 


INSQUE(.FID, QUEUE_HEADERS(4)); 
STATUS = CREATE_EXTHDR( 

~CUR_HDR, .CUR_FID, EXT_HDR, FIDCCRT_FIDJ); 
IF NOT .STATUS 


THEN RETURN CREATE_CLEANUP( STATUS); 
CUR_HDR = EXT_HOR; 
CUR-FID = FIOCCRT_FIDI; 
HCOONT = .HCOUNT F 1; 
END; 
END; 
END; 


: Append the window pointer. 


ADD_WINDOW MAP ( 
CURRERT_MTLCATL WINDOW) 
-FIDCCRT=FID_RVNJ, .EXTCEXT_COUNT], .EXTCEXT_LBNI); 


' Count the allocation into the total, and determine if we need 
! to go around again for another extent. 
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TCOUNT = .TCOUNT + .EXTCEXT_COUNT); 
IF .EXTCEXT COUNT] GEQuU ET COUNT THEN EXITLOOP; 
RCOUNT = .RCOUNT = .EXTCEXT_COUNTI; 
END 
ADS BLACKHOLE MAP(.CURRENT_MTLCMTL_WINDOW], .CRTCCRT_BLOCKS) 
TCOONT = .TCOUNT 2 CRTECRT BLOCKST® cay ‘ , 
CRT = .CRTICCRT_FLINK); 
END; 
END 
ELSE 
BEGIN 


! If there are no blocks allocated to the file, it is still necessary 

! to take off the first entry of the FID queue. This is necessary to 

: make the ACL building logic in STA_DEACCESS work correctly. 

LOCAL 
FID REF BBLOCK; ! Pointer to FID entry 


REMQUE(.CRTCCRT_FID FQHDR], FID); ! Get first FID entry 
INSQUE (FID, QUEUE _READERS(4}); 


: Initialize HIBLK. 
NOT .QUAL ee OR ! Sequential disk output 
NOT .QUALCQUAL_VOLU ! Not /VOLUME restore 


Qu. 1 


IF .HEADERCFH2$B_ STRUCLEV) EQL 
THEN BBLOCK AEADERLEWISU_RECATTR « FATSL_HIBLK) = ROT(.TCOUNT, 16) 
ELSE BBLOCKCHEADERCFH2$W_RECATTR), FATSL_HIBLK] = ROT(.TCOUNT, 16); 


: Write last extension header if it exists. 


.CUR_HDR EQLA EXT_HDR AND 
(NOT .QUALCGUAL_VOLUJ OR .QUALCQUAL_VOLU_VALUE) EQL .CUR_FIDCFID$B_RVNJ) 


BEGIN 
STATUS = WRITE_HEADER(.CUR_FID, .CUR_HDR); 
IF Not »STATUS- THEN RETURN” CREATE_CLEANUP(. STATUS); 


: Write header and set index file bitmap bit. 


PORIPOPIPOPINI WII TRONPIPUPIPIPIPIPINPININIPINININININI WWW NINA AINIA AIA BUTI EAA AAO 
to —q ood oad al 
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NOT .QUALCQUAL_OF 11) OR ! Sequential disk output 


a ll 


OFFC 00000 STA_CREATE: 
.WORD Save R2,R3.R4,R5.R6,R7.R8,.R9,R10,R11 : 6949 


} 
N 10 
STAACP Standalone ACP 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 P 192 | 
= STA CREATE - create Q10 service routine 12-808-1 383 99:82:83 EBACKUP. SRE STAACP.B32; ae 135 
91 74 NOT .QUALCQUAL_VOLUJ OR ' Not /VOLUME restore 
Ss 7408 -_ |“ aUACLOUAL. VOLO_VALUES EQL .CURRENT_MTLCMTL_FID_RVNJ | 
94 F409 BEGIN 
895 7408 STATUS = WRITE_HEADER(CURRENT MTLCMTL_FID], . HEADER); | 
538 7409 IF NOT .STATUS THEN RETURN CREATE_CLEANUP(.STATUS); 
89 7410 END; | 
898 7411 
899 rele 
a4 oz } Quota table maintenance. 
308 ele if »HEADERCFH2$B_STRUCLEV] EQL 2 AND .QUALCQUAL_OF11] AND NOT .QUALCQUAL_VOLUJ 
$304 Faig BEGIN 
905 oi3 ' 
2a08 a Locate and record file ID of QUOTA.SYS. 
5908 7421 IF 
5909 74 ¢ a we HEADERCFH2SW_RECATTRJ, FATSB_RTYPE) pat FATSC_FIXED AND 
5910 74 -BBLOCKLHEADERLFH2SW_RECATTRJ, FATSB_RATTRIB) EQL 0 
5911 7424 -BBLOCKCHEADERLFH2SW_RECATTRJ, FATSW_RSIZEJ EQL DOQFSC_LENGTH AND 
a 7425 -HEADERCFH2SV_CO 
591 74 $ -HEADERCFHOSW_BK_FIDNUM] EQL FIDSC_MFD AND 
5914 74 -HEADERLFH2SB_BK_FIDNMX] EQL 
5915 7428 -HEADERCFH2S$W_ BK At EQL FIDSC_MFD AND 
e3i8 7429 oP iprr izes FIB_RYN EG, 1 AN 
reaT4 vies eigcpe rH ACENGTHI EQL ZCHARCOUNT(*QUOTA.SYS;1°) AND 
5919 BRT ZCHARCOUNT("QUOTA.SYS;1°), .P2CDSCSA_POINTER], 
2359 etez ZCHARCOUNT("QUOTA.SYS;1'), UPLIT BYTE('QUOTA.SYS;1")) 
2958 7435 4 GIN 
592 7436 4 QF _QUOTA_FIDCFIDSW_NUM) = .FIBCFIBSW_FID_NUM]; 
5924 7437 4 DQF _QUOTA_FIDLFIDS$W_SEQ] = .FIBLFIBSW_FID_ SEQ); 
3952 7438 4 DOF _QUOTA_FIDCFIDSW_RVNJ = .FIBCFIBSW_FID_RVNJ; 
5926 7439 3 | 
5927 7440 
5928 7441 
2 9 oe : Charge file space. 
ad 7444 DOF _MODIFY_USAGE (.HEADERCFH2$L_F ILEOWNER), -TCOUNT + .HCOUNT); 
59 . 7445 END; 
593 gees 
23%¢ rite '¢ leted normall | 
5936 m9 Si” " | 
5937 7450 CREATE_CLEANUP(SS$_NORMAL ) 
5938 7451 END; 
31 38 53 59 53 2E 41 54 GF 55 51 O2E03 P.AAU: .ASCII \QUOTA.SYS;1\ : | 
| 
| 
| 
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STAACP Standalone ACP 1b-5¢ -1984 242: AX-11 Bliss-32 V4.0-74 & 193. 
v04- STA_CREATE = create Q10 service routine 1 305-138 99:92:63 EBACKUP-SRe STAACP.B32; 29° 13) 
FOC8 CE 9E 000 MOVAB -568(SP), SP : 
Hi 00000069" EF D 5 MOVL URRENT_MTL, RO + 6999. 
an peat i ae 
50 AG BF A 901 MOVZBL #164, RO : | 
51 00000000" EF 0018 1$ MOVAB QUEUE_HEADERS, R1 : 7000 
00000000' éF i O01F MOVL  R1, QOEUE_HEADERS+4 : 
00000000' Ef 1 BO 00 6 MOVL 1, QUEUE-HEADERS : 
1 00000000" éF 0020 MOVAB QUEUE _HEADERS+S, R1 + 7001 
90000000" EF 1 00 000 VL 1, QOEUE_HEADERS+12 : 
0000000' ff 1 p 900 MOVL 1, QUEUE-HEADERS+8 : 
1 00000000' €éF ; 4 MOVAB QUEUE HEADERS+16, R1 : 7002) 
00000000" éF 1D 9904 MOVL 1, QOEUE_HEADERS+20 : 
00000000° Ef 1 00 00050 MOVL 1, QUEUE-HEADERS+16 ; 
1 1¢ AC DO 00057 MOVL 1. R1 + 7007 
56 06 al 00 90038 MOVL 4(R1), FIB : 
18 AO 04 Ad DO 0005F MOVL 4(FIBS, 24(RO) + 7008 
1¢ A 08 A6 80 00064 MOVW  8(FIB). 28(RO) + 7010 
1C A6 DS 00069 TSTL 8 (F 1B) + 7011 
04 12 9006¢ BNEQ $ : 
10 AG 01 00 006 MOVL #1, 28(FIB) : 
10 ad 10 AO 9E 00072 28: MOVAB 16(RO), 16(RO) : 7012 
14 AO 10 AO 9E 0007 MOVAB 16(RO). 20(RO) : 701 
31 A 02 BA 007¢ BICB2 #2, 49(RO) : 7014 
SA 06 AG 0080 MOVZWL 4(FIB), R10 + 7016 
14 12 00084 NEQ  3$ : 
08 A6 BS 00086 TSTW  B(FIB) : 7017 
OF 12 09089 BNEQ 3$ : 
7E D4 CO08B CLRL  =(SP) : 7018 
000000006 8F DD 1008D PUSHL  #BACKUP$_INVFID F 
000000006 00 02 FB 0093 CALLS #2, LIBSSIGNAL : 
58 00000000" EF DO WO09A 3$:. MOVL = CURRENT_MITL, : 7022 
57 0C AB DO COOAI MOV 12(R8), "HEADER : 
0200 8F 00 6E 09 2c 09043 MOVCS #0, (SP), #0, #512, (HEADER) : 7023 
59 20 AC 00 SOOAD MOVL  P2, R9 : 7036 
01 1E AS 91 00081 CMPB =s-_- 30(RB), #1 : 7024 
40 12 00085 BNEQ 4=s«5$ : 
67 2617 8F BO 00087 MOVW #11799, (HEADER) : 7030 
02 AZ A BO 000BC MOVW R10, 2(HEADER) : 703 
06 «A? 06 A6 B 99¢9 MOVW 6(F fp) 4 (HEADER) : 703 
06 AZ 0101 8F B0 000C MOVW #257, 6(HEADER) + 7034 
05 16 A6 O0c8 BLBC 22(FiB), 4$ : 7035 
oc A 80 BF CF BISB2 #128, 12(HEADER) : | 
10 AE 9F 00004 4$: PUSHAB NAMEBLOCK : 7036 | 
04 A pp 0007 PUSHL  4(R9) : 
7E 20 BC 3C 0000 MOVZWL aP2, ~(SP) | 
000000006 00 F ODE CALLS #3, MAKE NAMEBLOCK : 
2— A? 16 AE 28 OO0E MOVC3 #16, NAMEBLOCK+6, 46(HEADER) ; 7040 | 
6¢ A 0301 F : 00EB MOVW #768, 98 (HEADER) : 7041 
6 A7 | 4 0 rl BNE GB #3 » 101( HEADER) : Pees | 
67 FEFF 428 F D6 O0t? 5$: MOVL #39896, (HEADER) : 7048 
ky Or ee arrecRBWY ROPE Bae 
OD A? 09 Ab 88 8108 MOVB 9(F{B), TS RAEADER) : 7055 
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11 | 
Standalone ACP 1b-5¢ -1984 242: AX-11 Bliss-32 V4.0-74 Page 194. 
STA_CREATE = create Q10 service routine 1 7300-1382 99532:83 YBACKUP.SRe STAALP 183061 7 (42) | 
OA A? 6 Ab BO 001 MOVW 6¢F 18) 10 (HEADER) : 7056, 
42 AZ A A6 DO 0011 MOVL 0<(F IBS, $6 (HEADER? : 7057 | 
46 AT — Ad B80 0011 MOVW  14(FIB), 70(HEADER) : 7059) 
05 6 Ab ; 11 BLBC e¢(F 18) 6$ : 7060 | 
34 OA? 80 8F 1 BISB2 #128, 52(HEADER) : 
4G OA? 1 00 00125 6$ MOVL #1, P6 (HEADER) + 7061) 
of ae ge Ven 
4C A? 0088 CO dO 0012F MOVL  136(RO), 76(HEADER) : 7063 | 
38 04 Ad BO 135 7$: MOVL 4<(R9), RB ; 7066 | 
14 20 6 20 BC C 91 9 MOVCS a@P2, (RB), #32, #20, B0(HEADER) : 7069 | 
50 3 Bc 3 S124 MOVZWL ape. RO : 7071 
50 14 ¢ 0143 UBL2. #20, RO : 
92 18 00148 BGEG S$ : | 
D4 OO14A CLRL_ RO : 
0042 8F 20 14 «OA seen 29 2c o0186 8$: MOVCS RO, 20(R8), #32, #66, 134(HEADER) : 7075 | 
56 DD 00137 9$:  PUSHL FIB : 7081 | 
2c AC DD 00159 PUSHL P5 : 
57 DD 0015¢ PUSHL HEADER : 
0000v CF 93 FB 00138 CALLS #3, WRITE_ATTRIBUTES 3 
6 0 D0 0016 MOVL RO, STATUS : | 
26 6E £9 00166 BLBC © STATUS, 118 > 7082 | 
7E 03 A6 98 00169 CVTBL 3(FIB). -(SP) > 7089 | 
OA GE 91 90160 CMPB_ ss (SP), #10 ; 
03 1€ 00170 BGEQU 10$ : 
6E OA 00 00172 MOVL #10, (SP) : 
1¢ A6 DD 00175 10$:  PUSHL  28(F1B) ; 
7E 00000000' EF 08 C1 00178 ADDL3 #8, CURRENT_MTL, -(SP) : 7088 | 
ze D4 00180 CLRL 0_« = ¢ §P) : 
57 0D 00182 PUSHL HEADER : 
D837 CF 0S FB 00184 CALLS #5, CREATE_WINDOW F 
6E 50 pO 00189 MOVL 0, TUS : | 
04 6— €8 9018¢ BLBS STATUS, 12$ : 7090 
50 6E DO 0018F 11$:  MOVL STATUS. RO ; 
04 0019¢ RET : 
50 00000000' EF DO 00193 12$: MOVL §CURRENT_MTL, RO : 7091 
50 08 AO DO 0019A MOVL (RO), RO : 
0c AO 1¢ A6 DO 0019 MOVL  28(FIB), 12(RO) : 
54 D4 OO1A CLRL —- TCOUNT : 7096 
OC AE 01 DO OO1A MOVL #1, HCOUNT : 7097 | 
50 30 AC DO 001A9 MOVL 6. RO : 7100 | 
03 1 O1AD BEQL 6-13 ; 
08 AO 85 OO1AF TSTW 8 (RO) : 7101 | 
0 1¢ 01B2 13$: BNEQ 14$ F 
00F5 31 001B4 BRW 28$ : 
14 DD 001B7 148:  PUSHL #20 : 7116) 
000000006 gi FB 18 CALLS #1, GET_VM : | 
1¢ MOVL RO, CRT : 
00000000' FF 62 OE O01C INSQUE (CRT) @QUEUE HEADERS +8 : 7117) 
50 08 A Oich MOVAB &(CRTS, R : 7118 | 
oc Ag 3 DO 001C MOVL RO, 12¢CRT) : 
8 A DO 0010 MOVL RO. B&(CRT) ; 
10 AZ D4 OOID CLRL = - 16 (CRT) : 7119 | 
OF DD 00109 PUSHL #14 : 7120 
000000006 00 1 FB 001DB CALLS #1, GET_VM ; 
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§ 08 a2 9 BF MOVAB &(CRT), RO 3 7205. 
¢ A << D ci MOVL RO, 12¢CRT) : 
D ¢ MOVL RO. 8(CRT) : 
1 A6 D C MOVL 26(F1B), 16(CRT) : 7306 
"8 DD 0020 PUSHL #14 : 7207 | 
000000006 FB 002D CALLS #1, GET_VM : 
0 8 60 0 D INSQUE (FID), S8(CRT) ; 7208 | 
A 04 A6 D D MOVL 4(FIBS, B(FID) + 7209: 
oC A o8 A6 B E MOVW 8(FIB), 12(FID) : 7211) 
58 00000000' EF p £7 29$: MOVL QUEUE _HEADERS+8, CRT : 2217) 
As 7 E MOVL HEADER, CUR_HDR : 7218 
5 06 AM 9 F MOVAB 4(R6), CUR_FID : 7219) 
18 «Ab OD F TSTL 4(F 16) : 7220) 
03 (1 F BNEQ 9s 3 
0166 3 FB BRW $ : 
18 AG 4 01 00 FE 30S: CMPL TCOUNT, 24(FIB) : 7223 
03 1F 0030 BLSSU 318 : 
01¢8 31 00304 Rw 4$ : | 
52 08 F 00307 31$:  REMQUE @&(CRT) : 7230) 
00000000" €F F 0 INSQUE (FID) GuEUE HEADERS+16 : 7 31 
00000000" EF D 0 1 CMPL RT, QUEUE_HEADERS+8 : 7236 
13 0031 BEQL 3$ : 
8 A2 9F 0031B PUSHAB 8{FID) : 7239 
C AE OF OOsiE PUSHAB EXT_HDR : 
53 DD 00321 SHL  CUR"FID : 
10 AE DD 003 3 PUSHL  CURTHDR ; 
FB99 =F 4 FB 0326 CALLS #4, CREATE_EXTHDR ; 
6 0 DO 00328 MOVL TA : 
0 bE 8 032E BLBS status, 2$ : 7240 
O21E 0331 BRW ; 
06 =A 38 AE E 32$:  MOVAB ext HDR, CUR_HDR + 7241 
5 08 A2 9E 00339 MOVAB &8(FID), CUR_FID : 726 
OC AE 0 0033p INCL. HCOUNT : 724 
50 18 Ab 24 C3 00340 33$:  SUBL3  TCOUNT, 24(FIB), RO + 7247 
10 As 0 Di 00 45 CMPL RO, 16(CRT) : 
04 1B 00349 BLEGQU 34$ : 
50 10 ag DO 00348 MOVL 16(CRT), RO : 
08 ar 50 BO O034F 34$:  MOVL RO, RCOUNT ; 
50 00000000' EF DO 00353 MOVL §§ CURRENT_MTL, RO : 7258 
14 00000000' FF 6 £1 0035A BBC 46, auaC+ 3 3 7249 
D 00000000" EF E9 0 62 BLBC QUAL+14, 35 + 7250 
0c A2 00000000° i 4 0 $9 CAPE QUAL +79; 12(F ID) ; 7251 | 
0139 3 73 BRw =ss«518 : 
1 oc A2 9a 00376 35$:  MOVZBL 12(FID), R1 : 7258. 
5 6 AO 9A 0037A V2BL 48(RO), RS F 
1 55 C2 3 SUBL2  R5, RI ; 
51 1F AO 08 0 £D CMP2V #0. #8, 31(RO), RI : | 
6 1A 7 BGTRU : 
7¢ F 7A 9 MOV ZBL #124, -(SP) ; 7260 | 
1 00000000" EF 00 fF 36$: MOVL FURR RRENT TAT, R1 > 7262 | 
: Ae A 00396 MOV ZBL (F FID) ; | 
Al 9A 0039A MOV BL 48(R1), RS : 
0 55 ¢ Hi SUBL : 
59 34 A140 D A MOVL {r1)CROJ, vcB : 
00000000' EF 59 D Ab MOVL VCB, CURRENT_VCB : 
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3bc 99:82:63 — LeAckuecsneistaacesoses 


BBS 
PUSHAB 
HL 


f 7(vCB), 378 
(vce) 


CKUP$_NOVOLDATA 
r LIBSSIGNAL 


r= 
=—c 


EUE HEADERS 
EXT) 


~ALLOC_BEST 


EXT), RCOUNT 


PONE Se FBS BD OC  DVBVZVZVSW 


RO, ¢ 
#i, 7(vCB), 43$ 
#256 


é 
os, 
C. (SP) 
YR HDR 
#3, MAKE_POINTER1 
44$ 

C. -(SP) 

GR_HDR 

#3, MAKE POINTER 
RO, STATOS 
STATUS, 46$ 
(CRT), FID 

48, -(SP) 


QUEUE _HEADERS+16 
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STAACP Standalone ACP -Sep-1 242: AX-11 Bliss-32 V4.0-74 Pp 198. 
v0e-000 STACCREATE - create Q10 service routine =35p- 1382 99:92:63 YBACKUP. SREISTAACP.B32; aad) 
C 1 BRR 45$ 3 7305. 
7E AS 70 00485 50S: mova 1 (Ext), -(SP) : F305 
7 A2 9A MOVZBL 12(FID). =(SP) : 
50 00000000" EF 00 VL GURRENT ATL. RO : 7341) 
AO DD PUSH (RO) : 
D7BD «CF FB 00497 CALLS #4, ADD_WINDOW_MAP : | 
4 C C ADDL2 12¢EXT)> TCOUNT : 7 | 
08 AE ¢ A b ah cAPL l { XT); RCOUNT + 7349. 
08 At oC A $ D04A SUBL (EXT), RCOUNT : 7350 
FFI AC BRW $ é 492 | 
10 AB DD OO4AF 51$: — PUSHL 6¢cRT) + 7355 
AO OD ry PUSHL  8(RO) : 
p750.—sCF 02 FB 0048 CALL e ADD_BLACKHOLE_MAP : 
4 10 =A A ADDL2 16(CRT)> TCOUNT : 735 
8 $ BE 52$:  MOVL ccRt), ért : 2 5 
e FE3A 31 004C BRW $ 3 722 
50 08 88 F 004C4 53S: UE a8(CRT), FID : 7 2 
00000" EF 60 f (8 INSQUE (FID), GUEVE_HEADERS+16 + 737 
07 00000000° FF E1 OO4CF 54$ C #6, QUAL+15, 55$ : 7380 
4 0000000" FF £8 00407 BLES QUAL+14, 57$ : 7381) 
50 54 : C 004DE 55$: ROTL #16, TCOUNT, RO : 7384 
01 07 AZ 91 O04E CMPB 7(HEADER), #1 : 7383 
; i AE BNEQ  56$ : 
12 a? D E MOVL 0, 18(HEADER) + 7384 
18 A? SU BREE ccs, «BRD, 24 (HEADER) 2 7385 
' 3 g | 
20 38 SOA oe a5 35: MOVAB EXT_HDR, RO : 7391, 
06 AE D1 004F6 CMPL R7HDR, RO : 
21 ig O4FA BNEQ $ | 
0A 00000000" EF f DO4F¢ BLBC QUAL+14, 58S ; 7392 | 
04 a3 00000000" FF 1 0050 CMPB QUAL#79, 4(CUR_FID) : 
0 12 00508 BNEQ 59% ; 
06 AE DD 00900 ses: © PUSHL —CUR_HOR : 7395 | 
53 DD 0051 PUSHL CURTFID : 
D018 SséCF 02 FB 0051 CALLS #2, WRITE_HEADER : | 
6 D 031 MOVL RO. STA : 
bE E 1A BLBC = STATUS, i$ > 7396 | 
18 00000000° fF 6 €1 1p 59$: c #6, QUAL+15, 60S : 7403 | 
1 00000 0° EF €9 BLBC  QUAL+14, 60$ + 7404 
50 00000: * €F 99 § MOVL CURRENT AA RO : 7405 
1¢ AO 00000000" FF 4 CHPB L+79> 28(RO) ; | 
Me Op 60S: PUSH HEADER | ; 7408 | 
7E 00000000" EF 18 «C F ADDL3 #24, CURRENT_MTL, -(SP) : 
CFE6 CF Q F 47 CALLS #2, WRITE HEADER : | 
gf i) 4C MOVL 3 
4 6 E 4f BLBS STATUS, 62$ : 7409. 
6 bp 2 61$: PUSHL STATUS : 
02 07 A 91 6 62%:  CMPB (HEADER), #2 > 7415. 
+3 ls A BNEQ 4$ 5 
66 00000000" €F E 26 BBC a6 QUAL +15 64$ ; | 
F 00000000" EF €8 BLBS QuAL 4, 64$ F | 
0 14 «A? 68 MOVAB é (HEADER). RO + 7422 
60 f CMPB RO), # : 
4A 12 é Q 63 3 


H 11 
STAACP Standalone ACP 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 Page 199 
yoe-000 STA_CREATE = create Q10 service routine 12236871 38e 99:82:88 BACKUP. SRCISTAACP.B32; 9 a2) 
01 ad 9 TSTB 1(RO) : 7423) 
4g 1 ys BNEQ $ : 
20 02 Ad é 19 CPW RO), #32 $7426) 
34 ar e 7F isi (HEADER) : 7425 
04 62 Ay BI CMP SS {HEADER #6 + 7426) 
34 BNEQ $ 8 : 
47 A? 9 A TSTB (HEADER) : 7427) 
2F 1 BNEQ 63$ 3 
04 44 AT a F CMPW © 6B(HEADER), #4 : 7428) 
29 ¢ H BNEQ g $ 3 
01 08 Ag 9 9 CMPB (FIB), #1 : 7429 
23 12 00599 BNEQ 63$ : 
0B 20 BC B81 0059B CMPW 380s @P2, #11 : 7430 
1D if 059F BNEQ 63$ : 
50 20 AC DO 0051 MOVL. P2, RO : 7432 
FAG9 CF 04 80 0 #9 O55 CMPC3 #11, a4(RO), P.AAU + 7431 
1 : O5AC BNEQ  63$ : 
00000000' EF 04 Ab DO 005AE MOVL 4(FIB), DQF_QUOTA_FID : 7436 
00000000" EF 08 Ab 80 0586 MOVW  8(FIB), DQF-QUOTA_FID+4 : 7438 
g¢ BE44 9F OOSBE 63$: = PUS @HCOUNTCTCOONT : 7444 
€ A? DD 005C PUSHL 60(HEADER) : 
cc75—sCF 02 FB 005¢ CALLS #2, DQF_MODIFY_USAGE : 
01 0D OOSCA 64$:  PUSHL #1 : 7450 
F846 OCF 01 FB O0S5CC 65S: CALLS #1, CREATE_CLEANUP : 
04 00501 RET > 7451) 


; Routine Size: 1490 bytes, Routine Base: CODE + 2E0E 
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STAACP Standalone ACP 1 aye11 Bliss =32 V4.0-76 Pa | 
v0e-000 STA_DEACCESS = deaccess Q10 service routine 14-Sep-1984 ait 22: 83 BACKUP. SRC} STAACP.832; sadist 
; 5940 4 1 ZSBITL "STA_DEACCESS = deaccess Q10 service routine 
$ rd re § : ROUTINE STA, DEACCESS (EFN,CHAN,FUNC,10SB,AS ASTAD R,A AStern, P1,P2,P3,P4,P5,P6)= 

1 ie 

: 5945 74 : 1 | FUNCTIONAL DESCRIPTION: 

3 ak res } : This routine executes IO$_DEACCESS in the standalone environment. 

: 5948 7460 1 | INPUT PARAMETERS: 

: BeP red : As for $Q10(W) system service. 

; 991 t : 1 IMPLICIT INPUTS: 

3 326 ree ; } CURRENT _MTL - Pointer to MTL for selected volume set. 

> 5954 7466 i QUTPUT PARAMETERS: 

; Bee re : : NONE 

; 2989 4269 1 i IMPLICIT OUTPUTS: | 
wa Rd 
: 5960 7472 1: ROUTINE VALUE : 

: Hd oee7 : : Completion status. 
; 2968 7475 1! SIDE EFFECTS: | 
3 aoce 7476 1! NONE 
: 3382 ae 

; 2969 7479 1— 

3 +e ree BEGIN 

3; 5969 74 

; 5970 748 MAP 

3; 5971 748 Pl: REF BBLOCK; ! Descriptor for FIB 

BH ee 

: 280i 748 WRITE_ACL; ! ACL writing Loop 

Be HEB ecw 

; 399 7489 WRITE FLAG ! Flag indicating header must be written 

: 5978 74 ACL POINTER : REF BBLOCK, ! Address of current ACL segment 

: da 7491 ACE_POINTER : REF BBLOCK, ' Current ACE in core 

; 5980 749 A : REF BBLOCK, ' Current ACE in header 

3; 5981 749 ACL_LENGTH ! Size of current header segment ACL 

: 98¢ 74 LOCAL_HEADER_: BBLO Ck (512), ' Local header storage 

: 59 7495 WEADEE : REF BBLOCK, ! Pointer to current header segment 

3 3B eee HEAD : BBLOCK e }° ! File-id of current header 

: 59 749 EXT HEADER_F ID : BBLOCK [6], ! Extension header file-1D 

3 $84 7498 CRT : REF BBLOCK, ! Pointer to create List entry 

3; 59 7499 FID : REF BBLOCK, ! Pointer to FID entry 

; 5988 7500 RVN ' Current RVN we are working on 

: 5989 7501 STATUS; i Status return 

3; 5990 7 o 

3; 5991 7 

3 +4 a : : Check that a file is accessed. 

; ae ie if .CURRENT_MTLCMTL_WINDOW) EQL 0 THEN RETURN SS$_FILNOTACC; 

: 5996 308 STATUS = SS$_NORMAL; ! Assume success 


Standalone ACP 1b “19 AX=11 BLi 4.0-74 P 1 
v04 STA_DEACCESS = deaccess Q10 service routine mR TSBs Fee igs eaNc het dess#e ate 03509 aoe 29 
: 5997 
; $398 f } Write attributes if specified. 
; 6000 751 WRITE FLAG = FALSE 
3 6001 f 13 HEADER = = gC URRENT. ATLCMTL HEADER]; 
; 6008 ; FA THER | 
3 6005 7317 STATUS = URITE_ATTRIBUTES (HEADER, .P5S, (IF .P1 EQL 0 THEN O ELSE .PICDSCS$A_POINTER])); 
: S009 F215 THEN WRITE_FLAG = TRUE; 
POPS a8 Paes 
3 6010 75 § ! Write the highwater mark if it has been modified. This is not done for 
: 602 fe Z : multi-volume files in /VOLUME restores, nor for multi-volume save sets. | 
: 601 73 5 
3 6014 7 IF .BBLOCK C.CURRENT_MTLCMTL_ WINDOW), WCB_CUR_HWM] 
3 6015 ie ? NEG .BBLOCK C.CURRENT_MTCCMTL_WINDOW), WCB_SET_HWM) 
: 6017 7529 BEGIN | 
3 6018 if 9 4 iF ( gua CQUAL acti? AND seeing vOLUJ) 
3 6020 1336 onEN epee $56 
3 6021 75 HEADERCFA2SW— K" 7 ban OR .HEADERCFH2$W_EX_FIDRVNJ) EQL 0 
3 60 ; if] 4 ELSE T | 
: 6024 ie AND s eee $B_STRUCLEV) EQL 2 
: 6025 75 D .HEADERLFH2SB_IDOFFSET] GEQU (SBYTEOFFSET (FH2$L_HIGHWATER) + 4) / 2 
: re Q ie $ ON REGIN 
3 6028 7540 HEADERLF H2SL -HIGHWATER] = .BBLOCK C.CURRENT_MTLCMTL_WINDOW], WCB_CUR_HWMJ; 
3 6029 7541 WRITE_FLAG =" TRUE; 
Be Big gw: 
: 603 e368 Write the header if necessary. 
> 6034 7546 if .WRITE_FLAG 
: $056 347 THEN STATOS = WRITE_HEADER (CURRENT_MTLCMTL_FIDJ, .HEADER); 
3 60 7549 
: pets} 7230 } Write out the file's ACL if necessary. 
: 6040 75 ir ~ CURRENT MTLCMTL_ACLFL] NEQA CURRENT_MTLCMTL_ACLFLJ 
3 6041 7358 AND . ent MTLCMTC_NEW_ACL 
3 S005 554 Ded “STA 
; 7555 THEN 
> 6044 £396 ITE_A BEGIN | 
> 6045 755 i boin NTER = CURRENT mit Cart CLEL); 
; 6046 7398 ACE” “POINTER POINTERCA cir IST): 
3 604 755 RYN = .CURRE ANTCERTL FID. 
rk: Feet - | 
‘ 
3 6050 36¢ 4 BEGIN 
> 6051 756 ACL_LENGTH = (. - HEADER FSB RSOFFSET] - 
: 605¢ 7364 DERCFHOSB-MPOFFSET - 
3 605 7565 nau OER EADERTH2SB $B_MAP_INUSE), | 
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Standalone ACP -$ep-1984 00:42: AX-11 Bliss-32 V4.0-74 p 202 
STA_DEACCESS = deaccess Q10 service routine 12-80-1382 90:32:63 YBACKUP.SRCISTAACP. 832; ae 235 
(IF .HEADERCFH2$W_SEG_NUM] EQL 0 
f ef é [Wee FRSC NCTAS/S~ | 
5 e 4 IF .ACE_POINTERCACESB size) Léa ACL_LENGTH THEN EXITLOOP; 
£370 CHSMOVE™ (6, HEADER FH2SW_EXT_ FID), EXT_HEADER_FID); 
7571 4 IF .EXT_HEADER FID F1DSB RVNT EQL 0 
7 i 4 THEN EXT_HEADER_FIDCFIOSG_RVN] = .RVN 
7573 4 ELSE RVN"= .EXT-HEADER_F IOLF10$B_RVNJ; | 
7574 4 STATUS = READ HEADER (EXT_HEADER-FID, LOCAL_HEADER); 
7575 4 IF NOT .STATUS 
7 ud: 4 THEN 
g 7 BEGIN 
76 ACL_DELETEACL (); 
1379 : LEAVE WRITE_ACL; 
7381 4 HEADER = LOCAL_HEADER; 
reee CHSMOVE (6, HEADERCFH2$W_FID], HEADER_FID); 
7584 HEADER FIOCFIDS8_RVNJ = <RVN; 
7585 HEADERTFH2$8_ACOFFSET] = .HEADERCFH2$B_RSOFFSET] = .ACL_LENGTH / 2; | 
7386 ACE = .HEADER + .HEADERCFH2$B_ACOFFSET] * 2; | 
758 | 
7588 
7589 4 BEGIN 
7590 4 CHSMOVE (.ACE_POINTERCACESB_SIZEJ, .ACE_POINTER, .ACE); 
7591 4 ACE = .ACE + -ACE_POINTERLACESB_ SiZE); 
1398 4 ACL_LENGTH = .ACL-LENGTH - .ACE~POINTERCACESB SIZE); 
7593 4 ACE-POINTER = .ACE POINTER + .ACE_POINTERLACESB. SIZE); 
7394 4 F TACE_POINTER GEGA .ACL_POINTER + .ACL_POINTERLACLSW_SIZEJ | 
7396 3 l | 
7597 ACL_POINTER = .ACL_POINTERCACLSL_FLINK]; | 
7598 5 IF <ACL_POINTER EQCA CURRENT MTLCMTL_ACLFL] THEN EXITLOOP; 
1399 ; ACE _POIRTER = ACL_POINTERLACCS$L_LISTI; | 
7601 4 IF .ACE_POINTERCACESB_SIZE) GTR .ACL_LENGTH 
7602 4 THEN 
7603 5 BEGIN 
7604 3 CRT = .QUEUE_HEADERS(2); 
7605 3 If REMQUE (.CRTICCRT_FID.FQHDR], FID) ! Get FID entry 
7607 6 BEGIN 
7608 6 ACL_DELETEACL (); 
7609 6 STATUS = SS$_HEADERFULL; 
7610 LEAVE WRITE_ACL; 
761 INSQUE (.FID, QUEUE HEADERS(4)); | 
761 STATUS = CREATE_EXTADR (.HEADER, HEADER_FID, LCCAL_HEADER, FIDCCRT_FIDJ); | 
7614 E IF NOT .STATUS 
7615 
7616 6 N 
7617 6 ACL_DELETEACL (); 
76 LEAVE WRITE_ACL; | 
7620 If .HEADER NEQA LOCAL_HEADER | 
7621 THEN | 
7622 6 BEGIN 


alone ACP 1b-5e 1 242: AX-11 Bliss- 
DEACCESS = deaccess 010 service routine 300-1 38% 99:82:88 BACKUP. SRCIS 
STATUS = WRITE_HEADER (HEADER_FID, .HEADER); 
F_NO ATuUS 
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wy ww 
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END; 
HEADER = LOCAL HEA 
SMOVE (6, HEA ADER Faosu. F101, HEADER_FID); 
HEADER FIDCFID$B8_RVNJ = -RVN; 
ACL_LENGTH = HEADER FH2SB_RSOFFS 
HEA Ror $87 =RPOF SET 


PEW OO OONAUEW 


HEAD Pats n 
HEADERCFH2SB acOFrset = AER FH 8, nsof ser] - .ACL LENGTH / 2; 


eS »HEADER + HE ADERCF 2 ~ACOFF SE 


ee 


SPOS SSS SSS. 


we DD 


e 
o the end of the header. Clear the odd byte at the end of the A 
f there is one. 


IF TESTBITSC (ACL Wye Ugh d i. THE 
CHSMOVE ((.H EADERCFH2SB ER tse 
HEADER HEADER 


aikz 


( 
1 z 
$B_ACOF 
HEA Fn 28 ACOF 

$ i (0, .ACL_LENG HEADER 
HEADER FHese ACORESe Ta" = *HEAD ERCFH $ 
WRITE “HEADER (HEADER_FID, .H 


IN 
CL_DE TEACL Q: 
EAVE WRITE_ACL; 

END; ! End of WRITE_ACL Loop 


pats AAAI PO PINIPINININIPYD) I se 
SOONOUS WN OO BFUNSLSSSSVSRROWVSSanonruns 
Sb en 
SEES 
ee = 
we —OOe 


ed ed ed ed ed ee ee eld a cael ce el cl al cl cl cl el el cl cel cl cl al el el cl cl cl cl cl cl cl cl cl cl cl el cl cl cl ll cl cl cl cll cl cl cl cl cl lt cel el cl cl eld 
PAA NUIVIVIUIUI ES BEER LEE PW 


PTE TETLIDITILILIL IL IL IRIEL IRIE ITE II eI IIIS IIE ISIS ISIEILISIeiTreicininiririiiririirireik ier 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA KAA AAA AAAOAAAAAAO AAA AH 


| 

7 | 

| 
4 

END; | 

!' Recover any unused ACL space from this header by sliding the wy © ey | 

| 

} 

| 

: | 
4 
4 

| 

] 


: £06 : Do the final cleanup for the deaccess operation. 

2 7664 2 

4 7063 ! Free the create List 

5 ree i ; 

$ 7668 UNTIL REMQUE (.QUEVE_HEADERS(C2], CRT) DO 

7669 BEGIN 

8 7670 LOCAL 

9 7671 Q: REF BBLOCK; ! Pointer to FID block 
60 767 
61 767 
6¢ rere : Free the FID blocks. 
3 rer UNTIL REMQUE (.CRTICCRT_FID_FQHDR], Q) DO FREE_VM (CRT_S_FID, .Q); 
06 767 | 
6 767 ! Deallocate the create List entry. 


e2 


SSS NR SSS 
—OOONOUS WN 


PDAERAEARAAA AA AAAAA AA AAA AAA AAA AAA AAS 
Ee ee a a a ee a ae a a et a ae a a ae a cae a a a eed ced el 
co CD 
wr 


SELESSLESLSSSLSERE 
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0-74 


} Free the used file ID List. 
UNTIL REMQUE (.QUEUE_HEADERS(4], CRT) DO 
BEGIN 


: If the deaccess failed, write a deleted file header. 
if NOT .STATUS 
THEN 


BEGIN 
ater DELHDR (CRICCRT_FIDJ, LOCAL HEADER): 
WRITE READER (CRTICCRT_FIDJ, LOCAL_READER); 


A 
4 
4 
4 
END; 
END; 
: Release the window. 
bELETE WINDOW (.CURRENT_MT “tt -WINDOW]); 
CURRENT_MTLCMTL WINDOW)” = 
: Indicate that there is no ACL associated with the file. 
CURRENT_MTLCMTL_ACLFLI = CURRENT_MTLCMTL_ACLBL) = 0; 
1 


: Return with the final status. 
RETURN .STATUS; 


OFFC 00000 STA_DEACCESS: 
WORD 


@ Save R2 R3 R4,R5,R6,R7,R8,R9O,R10,R11 
SE FD ce 9 000s MOVAB =540 P 
50 socow® EF D Bop MOVL CURRENT ATL. RO 
AO 9 0 TSTL (RO) 
5 8 1 BNEQ 
50 AC F oe 3 \3 apyeat #172, RO 
6E 9 44 18 1$: MOVL ae stares 
3 Dd 18 CLRL {TE FLA 
56 of AQ D 1D MOVL Wein - HEADER 
Cc )hCOA 9 1 TSTL 
2 4 BEQL 4h 
50 1¢ AC D 6 MOVL Pi, RO 


Sete Se Se Se Se See Sse Ge Se Se Se 
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alone ACP 
EACCESS = deaccess @10 service routine 


Oe he bose BNEe oes) , 
iM rf BRB 3$ : 
94 AO 0D 3 PUSHL 4(RO) : 
C AC OOD $: PUSHL P : | 
DD 0 PUSHL HEADER : 
0000v CF F CALLS #3, WRITE_ATTRIBUTES F 
D 00 D MOVL R T : 
6 E9 00 40 BLBC = STATU + 7518 
7 DO 0004 MOVL #1, WRITE FLAG + 7519 
7 000000 ¢ EF DO 00046 4$: MOVL URRENT_MTL, R1 + 7526 
0 Al 0D 4D MOVL (R1) Ro : 
10 A C A0 ? 31 CPL }ecros, 6(RO) : 7527 
07 00000000° Fe 06 E b38 BBC #6, QUAL+15, 5$ : 7530 
8 00000000" EF 3] 9060 BLBS  QUAL+14, 6$ : 
00000000' Fe 906 5$: TSTB  QUAL+#1 + 7531 
2 18 0006D BGEQ «= 7 ; 
04 As 8 O006F 6$: TSTW § 4(HEADER) + 7532 
20 12 00072 BNEQ 3 
52 0 Ab 3 0074 MOVZWL 14(HEADER), R2 + 7533 
54 12 A6 0078 MOVZWL 18(HEADER), R4& : 
52 54 C8 0007C BISL2 R4&, R2 : 
13 12 0007F BNEQ 8$ ; 
02 07 Ab 91 00081 7$: CMPB =7(HEADER), #2 + 7536 
0D 12 90083 BNEQ 8$ : 
28 66 91 00087 CMPB = (HEADER), #40 : 7537 
08 iF OOOBA BLSSU8$ : 
4c as 0c AO DO 0008C MOVL V2cRO) 76 (HEADER) : 7540 
§ 01 D0 00091 MOVL #1, WRITE + 7541 
0d 53 €9 00094 8S: BLBC WRITE FLAG, 9$ + 7546 
56 (DD 90097 PUSHL HEADER + 7547 
18 Al 9F 00099 PUSHAB 24(R1) : 
CEBF OCF 08 FB 0009C¢ CALLS 2, WRITE_HEADER ; 
6E DO OOOAT MOVL RO. S$ : 
50 00000000" EF DO O00A4 9$ MOVL § CURRENT_MTL, RO : 7552 
51 10 AO 9E OO0AB MOVAB 16(RO),~R1 ; 
51 10 AQ D1 OOOA CMPL  16(RO). R1 : 
03 12 0008 BNEG 118 F 
0199 31 0083 10$: BRW 29$ ; 
F8 31 A 01 £1 .000B8 11$: BBC #1, 49(RO), 108 : 7553 
F5 6 E9 OO00BD BLBC status, 10$ : 7554 
59 10 AO DO 000C0 (RO), ACL_POINTER : 7557 
58 i" AD 9E 0 C4 MO (RO). ACE~POINTER : 7558 
04 A : AO 9A 000C8 (RO): RVN : 7559 
2 0 AG 9A 6 CD (HEADER), R2 : 7564 
1 A6 OA 0} (HEADER). R : 
5 50 ¢2 00 D3 RO, R2 ; 
Ab a 00D 4 (HEADER) : 7566 
000B 13$ 3 
4 p00 000D #h, RI : 7567 
é 11 000E 14$ : 
ps 0 E R1 : 7566 
A6 9A O00ES S58(HEADER), RO ; 
5 D1 OOES RO RI : 
p : OEB 15$ ; 
1 DO OCOED Ri : 


12 
e ACP 16-5¢ -1984 242: AX-11 Bliss-32 V4.0-74 Pa 

ESS = deaccess Q10 service routine 1 =300- 138% 00:02:63 YBACKUP.SRe STAACP.B32; ge 796 
5 50 c FO 15$:  SUBL2 RO, R : 7565 
1 F ASHL #1, R2, ACL_LENGTH ; 7568 i 
0 0 FD OF7 CMP ZV #0. #8, (ACE_POINTER), ACL LENGTH : 7569) 
OC AE OE Ab 06 2 OFE MOVC3 #6, 14(HEADER), EXT_HEADER_FID > 7570| : 
10 =A 104 TSTB FX{ HEADER. F1D+4 : 7571 i 
07 12 00107 BNEQ $ : 
10 AE 06 AE 9 0109 MOVB RYN. EXT_HEADER_F 1D+4 : 7572) 
05 11 001 BRB 1 : 
04 AE 10 AE 9A ori 168: MOVZBL EXT_HEADER_FID+4, RVN : 7573 i 
1C AE 9F 00115 17$:  PUSHAB LOCAL HEADER + 757% i 
10 AE OF o118 PUSHAB EXT_HEADER FID : : 
cpBO)O «CF 9 FB 0011B CALLS i, READ HEADER : 
GE DO 001 9 MOVL RO, STATOS : 
0 gf 58 01 BLBS STATUS, 18$ + 7575 
0121 31 00126 BRW % : i 
56 1¢ AE 9€ 00129 18$:  MOVAB LOCAL_HEADER, HEADER : 7581 i 
9E 11 0012D BRB $ : 7560 
14 AE 08 Ab 06 8 O012F 19$:  MOVC3 #6, 8(HEADER), HEADER_FID : 7583 : 
18 AE 04 AE 90 00135 MOVB. VN, HEADER _FID+4 + 7584 i 
50 5 0 C7 0013A 20$:  DIVL3 #2, ACL_LENGTH, RO : 7585 i 
02 Ab 03 As 50 83 0013E SUBB3 RO, 3(HEADER), 2(HEADER) : ; 
5 02 A6 9A 00144 MOVZBL 2(HEADER) : 7586 : 
08 AE 6640 3E 00148 MOVAW (HEADER)CROJ, ACE ; : 
50 68 9A 0014D 218 MOVZBL (ACE_POINTERS, R : 7590 : 
08 BE 68 50 28 00150 vc 0, TACE_POINTER), @ACE : i 
50 68 9A 00155 MOVZBL (ACE POINTER), RO : 7591 
08 AE 50 ¢O 00158 DL2. RO, ACE ; i 
50 68 9A 0015¢ MOVZBL (ACE_POINTER), RO : 7592 i 
57 50 C2 0015F L2 , ACL_LENGTH F : 
50 68 9A 00162 MOVZBL (ACE_POINTER), RO : 7593 ; 
58 50 £0 0016 L2 RO, ACE POINTER ; : 
50 08 Ad 3C 00168 MOVZWL 8 (ACL POINTER), RO + 7594 ; 
50 59 CO 0016C L2  ACL_POINTER, RO F : 
50 58 D1 OO16F CMPL  ACE~POINTER, RO ; ; 
17 1 00172 BLSSU  23$ : i 
59 69 00 00174 MOVL.  ‘ACL_POINTER), ACL_POINTER : 7597 i 
50 00000000' EF 10 ¢1 00177 ADDL3 #16,~CURRENT_MTL, RO : 7598 
50 59 D1 0017F CMPL ACL_ POINTER, ~RO ; i 
03 12 00182 BNEG 225 ; i 
0085 31 00184 BRW 6s : i 
58 0c Ad 9E 00187 328 MOVAB 12(R9), ACE_POINTER : 7599 | 
57 68 08 00 ED 0188 23$ CMP ZV 40, #8; (ACE_POINTER), ACL_LENGTH : 7601 | 
5A 00000000' EF D0 O82 MOVL  QUEUE_HEADERS+8, CRT : 7604 | 
58 08 BA OF 0199 REMGUE QB (CRT), FID : 7605 | 
000000006 00 00 FB 0019F CALLS #0, ACL_DELETEACL : 7608 
6€ 08C8 8F 3C O01A6 MOVZWL #2648. STATUS : 7609 
0OA3 31 O01AB BRW 29$ + 7610 
00000000° EF 68 OE 1Ag 24$ INSQUE (FID), QUEUE_HEADERS+16 : role 
08 AB 9F 001B PUSHAB .8(F IDS > 7613 | 
20 AE i 0188 PUSHAB LOCAL_HEADER : 
1c AE 9F 0018B PUSHAB HEADER_FID ; 
56 DD 0018 PUSHL HEADER : 
F72D sCF 4 FB gic CALLS #4, CREATE_EXTHDR : 
6E 0 pO 001C¢ OVL RO. STATUS : 


CD82 
14 AE 08 
18 
57 
03 
6749 
57 00 
02 
Cbd1C 
000000006 
000000006 
000000006 
CDCc1 


PE AVIMNYIVIVIY PME AO 
N GOONS OMOeoomn 


rVi OOM" 
On MOWOOCCCOoO— 


1 
1 
6E €9 001C8 
1¢B 
1CF 
102 
aE 
Bi 
6— €E9 OOTE 
1 = AE 1E4 258: 
, 2 ale 
63 3 A 1F8 
01 A6 9A 001F7 
51 C2 OO1FB 
3A 4g A OO1F 
5 0020 
1 020 
FF2E 31 00209 
00 &? 0020C 268: 
08 BE 94 0021 
8 A6 9A 00215 278: 
0 A6 9A 00217 
Be si 
0 2 009 1 
6641 00224 
50 28 00228 
00 2c Bo5¢8 
69 02 
0¢ C6 0023 
5? 80 00236 
56 DD 0023A 
18 AE OF basa 
02 FB 00235F 
30 00 00244 
6— £8 OP SeA 
00 FB 0024A 288: 
00000000" FF of 00251 29$: 
20 1D 00258 
08 BA OF 0025A 30S: 
OD 10 0025 
2 +4 0 ? 
a ae 
A dD 0 6D 31$: 
i See 
i if 78 
00000000" FF OF 7A 328: 
1B 4 1 
HBB 
08 AA 9F ; 
02 FB C 
1¢ AE OOF 1 


tx 
~ben- 


1980 99:82:68 


ae Oh reser V4.0-74 
BACKUP.SRCJSTAACP.B32; 


STATUS, 28$ 
LOCAL HEADER, RO 
HEADER, RO 
HEADER 

ADER_FID 
#2, WRITE_HEADER 

STAT 

ATuS, 28$ 

LOCAL HEADER, HEADER 
THEADERS, HEADER_F ID 

N, HEADER _F1D+4 
(HEADER), RO 
1 (HEADER), R1 
Ri, R 
S8(HEADER), R2 
#1, RO, ACL_LENGTH 
#0, ACL_LENGTH, 27$ 
aAce 

(HEADER), R1 

(HEADER), RO 
RO 

, Rd 
(ACL_LENGTH)CR9J 
#0, ACL_LENGTH, (R9) 


HEADER) 


STATUS, 
WO, ACL_DELETEACL 
QQUEUE_READERS+8, CRT 


a8(CRT), Q 
31$ 


by FREE_VM 

$56 . 

CRT 

#20 

a3 FREE_VM 

POYEUE NEADERS*16, CRT 


STATUS, 32$ 
OCAL HEADER 


#2, CREATE_DELHDR 
LOCAL_HEADER 


Page 79 | 


7614 | 
7620. 


CLL LLL LL te Li Nt te ils ill flit ltt 


deaccess 010 service routine Yeceepc}BRE 99:99:89 YAKCHE Budenct2, v4. 05742 Page 208 


08 AA 9F 00294 PUSHAB 8(CRT) : 

ccc4CCEF 02 if 37 CALLS WRITE_HEADER tees 
50 00000000" EF D 33$: OVL URRENT_MTL, RO 3 7706 | 

AO 0D A PUSHL ; 

D35F cr 01 F CALLS DELETE WINDOW : 
0 00000000" EF »D AD MOVL CUAREN T_MIC, : 7705 

08 AO D4 B4 CLRL : 

10 Ao f 87 CLRO eto : 7710 | 

50 6E p BA MOVL §§ AtUS. RO i 7715) 

4 00280 RET + 7717 


; Routine Size: 702 bytes, Routine Base: CODE + 33£0 


12 
STAACP tandalone ACP 18-56 -1984 00:42: AX-11 Bliss-32 V4.0-74 Page 209 
v04-000 STA ROD IY = modify Q10 service routine 1 300-1384 99:82:63 BACKUP SRE ISTAALP.B30e4 . (23 
3; 6207 7718 1 ZSBTTL ‘STA_MODIFY - pod ty Q10 service routine’ 
; ° 4 48 } ROUTINE STA_MODIFY (EFN,CHAN,FUNC, 1OSB,ASTADR,ASTPRM,P1,P2,P3,P4,P5,P6)= 
; 6210 i 1 1 tee 
3; 6211 77 § 1! 
$ \§ 77 1 ! FUNCTIONAL DESCRIPTION: 
: ? iz a : ! This routine executes IO0$_MODIFY in the standalone environment. 
3; 6215 77 1 ! INPUT PARAMETERS: 
3; 6 18 77 3 As for $Q10(W) erates service. However, a nonzero P6 points to 
3 621 7728 1! OUTPUT_ATTBUF, which indicates that the IOS_MODIFY refers to a 
3; 6 18 7729 «1! file on an image output volume. 
3; 621 7730 1! 
; 6 9 7731 #1 =! IMPLICIT INPUTS: 
: os 1 of ¢ , : CURRENT _MTL - Pointer to MTL for selected volume set. 
3; 6 38 7734 1 ! OUTPUT PARAMETERS: 
3; 6224 7735 1! NONE 
3; 6225 77 $ 1! 
5 esse 7737 «1°! IMPLICIT OUTPUTS: 
3; 622 7738 «1! NONE 
3; 6228 7739 «1! 
3; 6 $3 7740 1 =! ROUTINE VALUE: 
3: 62 7741 1! Completion status. 
3; 6231 774 1! 
3 oc36 774 1 ! SIDE EFFECTS: 
3; 623 7744 «1! NONE 
3; 6234 7745 1! 
3; 6235 7746 1 !-- 
3; 6236 7747 «(1 
3; 6237 7748 BEGIN 
3; 6238 7749 MAP 
3; 6239 7750 Pl: REF BBLOCK; ! Descriptor for FIB 
3: 6240 7751 LOCAL 
3 6241 736 1B: REF BBLOCK, ! Pointer to FIB 
3 or) 775 STATUS, ' Status variable 
: os6 7754 RVN, ' RVN of current header 
3 6244 7755 HEADER: REF BBLOCK, ! Pointer to file header 
: ost? 7756 FID: REF BBLOCK ! Pointer to current file ID 
3 6246 7757 EXT_FILE_ID: | BBLOCK FIbSC_LENGTH]. ' FID of extension header 
5 ert 4 ree LOCAL_HEADER: BLOCK (512);~ ! Local buffer for extension header 
3 6349 e760 : If the FIB descriptor is present, get the address of the FIB. 
: 6351 ore IF .P1 NEQ 0 THEN FIB = .PICDSCSA_POINTER); 
3; 6 38 ores : Get the file ID if the file is not open. 
3 6255 £76 HEADER = .CURRENT_MTLCMTL_HEADER); 
3; 6256 77 FID = CURRENT MILEMTL_FIDI; 
3 6257 7768 IF .CURRENT_MTLCMTL_WINDOW) EQL 0 
: 6258 re THEN 
3 6259 7770 BEGIN 
3; 6260 7771 IF .P1 tr 0 THEN RETURN 35s BADPARAM; 
3; 6261 rire FIDCFIDSW_NUM) = .FIBCFIBSW_FID_NUM; 
: 6 o¢ 777 FIDOCFIDSW-SEQ) = .FIBLFIBSW_FID_SEQ); 
3; 626 7774 FIDCFIDSWIRVN) = .FIBCFIBSW_FID_RVN); 


: Write attributes. 


STATUS = WRITE_ATTRIBUTES (.HEADER, .P5, (IF .P1 EQL 0 THEN 0 ELSE .PICDSCSA_POINTER])); 
IF NOT .STATUS"THEN RETURN STATUS; 


1 12 
Standalone ACP gn3¢ -1 AX-11 Bliss-32 V4.0-74 P 1 
STA_MODIFY = modify Q10 service routine 1 13=308= 1382 9: $f: §3 BACKUP .SRCJSTAACP.B32; aoe 210 
7775 an US = sfhty HEADER(.FID, 2 ADER) 
77 § IF NOT US THEN RETURN 5S ATUS;” 
of pune J rity MTL_NEW_ACL 
rte RVN = tice IDse _RVNI; 
re 
o ; } Iterate over the headers of a multi-header file. 
7 . 
4 5 WHILE TRUE 
7 GIN 
7788 ” 
7 
7 
7 


: Rewrite header. 
" $TATUS = WRITE_HEADER(.FID, .HEADER); 
IF NOT .STATUS THEN RETURN .STATUS; 
: Quota table maintenance. The file header must be charged. 


“NEADERCENZSS STAUCLEVI EQL 2 AND NOT .QUALCQUAL_VOLU] AND 
UP IBEF IBS. F.1D _NUMD GEQU FIDSC_MFD OR .FIBCFIBSB_FID_NMX] NEQ 0) 


7807 

A DOF _MODIFY_USAGE( .HEADERCFH2$L_FILEOWNER], 1); 
7 \9 ' Read and wed ity the next 1 file header. 

f ; : Get clean file number and R 


If .HEADERCFH2$B_STRUCLEV) EQL 2 
THEN 


VAISS 
SRR RIS SESS RP ESS 
WE EWE EE BE BUS EBB BAAN WHA HANAN AAA AA AAA AAA AAO 


N 
7 I EXT FILE 1D FIDSW_NUM] = .HEAD ReEH $W_EX_FIDNUM); 
781 XTFILE~IDCFIDS$W~SEQ] = .HEADERCFHOSW-EX—FIDSEQ]; 
7 18 EXT-FILE-IDCFIDSWIRVN) = .HEADER FH $W7EX"FIDRVNI: 
5 e.see 
10 re 1 BEGIN 
11 7 3 LOCAL MAP_POINTER: REF BBLOCK 
ig 7 MAP_POINTER = .HEADER + ~ MEADERCE W188 MPOFFSET) * 2; 
XTTFILE_ W_| A N ~EX_FILNUM); 
1 7824 EXT“FILE_IDCFIDS .MAP_POINTERTFM1 $W_EX_FILNUM 
XT_FILE_ ‘a ° N aEX_FIL : 
14 7825 T~FILE-IDCF IDS EQ MAP~POINTERLFM1$W~EX_FILSEQ 
15 f 3 EXT-FILEDID FIDSW-RVNI = 0; 
19 7 If CURRENT eMTe cane seo 
18 78 OR (.EXT_FI wenat W *AUR "Do AND .EXT FILE segr inp _mn EQL 0) 
1 8 9 OR (.EXT-F LE“ID FIDSB-RVN) NEQ 0 AND .QUACCQUAC_VOLUJ) 
20 7 THEN EXITLOOP? 


A 
g3 


12 
ACP 18-56 1984 00:42: AX-11 Bliss- 4.0-74 
A.MODIFY = modify Q10 service routine 1 7300-1382 99:80:83 YBACKUP’SRe STAGE. B32: 
IF .EXT_FILE_IDCFIDSB_RVN] EQL O THEN EXT_FILE_IDCFIDSB_RVN] = .RVN; 


2 


: Set up header and RVN for next trip through Loop. 


ay Ser ay vat) 


FID = EXT_FILE_ID; 
HEADER = COCAL HEADER: 
RVN = .EXT_FILE_IDCF1OS8_RVNI; 


! Read extension file header. If this fails, 
; exit the loop. 


STATUS = READ _HEADER(EXT_FILE_ID, .HEADER); 
IF NOT .STA 
ae RETURN .STATUS; 


PAA AAAAAAAA AAAS 


Pe srt te ate ya tet tee eet ge gee geo} 


Wr—o/d 


Pe | 


: Completed normally. 
$S$_NORMAL 
END; 


Be Se Ge Oe Se Oe Se Ge Ge Se Be Ge Se Ge Ge Se Se Se Ge Se Seesee 


POAAAAAAO 


FW“ OVOONOUE WO 


SNS 
0.000000 


O3FC 00000 STA_MODIFY: 


«WORD Save R2,R3,R4,R5,R6,R7,RB,RP 
59 00000000" EF 9€ 00002 MOVAB CURRENT MTL, R9 
3E FDOF8 CE 9€ 00009 MOVAB = 20( SPF, SP 
§ 1¢ AC OOD O05 MOVL 1, R 
04 13 0001 BEQL = ‘1 
54 04 AS DO 00014 MOVL  4(RS), FIB 
30 69 DO 00018 1$ MOVL § CURRENT_MTL, RO 
5 o¢ AO 0 001B MOVL 12(R0), HEADER 
52 18 AO 001F MOVAB 24(RO). FID 
08 Ad D5 00023 TSTL (RO) 
: 12 000 BNEQ $ 
5 TSTL = RS 
4 12 0002A BNEG 2$ 
50 4 p 002C MOVL #20, RO 
4 9 F RET 
6 06 Aa OD 2s: MOVL 4(FIB), (FID) 
04 A 08 AG B MOVW 8(FIB). 4(FID) 
0 6B 9 PUSHR #*M<R2,R5> 
cBp2.sCF F CALLS #2, READ HEADER 
7 D MOVL 86R STATOS 
E 4 BLBC STATUS 
69 46 VL CURRENT MTL, RO 
31. =OA A BICB2 #2, 49(RO) 
5 06 Ad 9A D 3$: MOVZBL 4(FID), RVN 
p 4s: TSTL = RS 
4 BNEG ©-45$ 
: p CLRL  =(SP) 
1 63 


a a 


ole “11 Bliss-32 ¥4.0=76 Page 212. 
1ergee=188e P9i82:8s | eKch le SAeSs#aate- S35, C54) | 
SERUABSIPT *“Soaity o10 service routine —  HEagepct98¢ $9:88:8 oe 
GA PR Ot ape gyn : 
: : 
PB 00081 CALLS aN. WRITE ATTRIBUTES 
0000v ff 09 es Hoy RO; ise § : 279 
E 6 L amcR>” ; 
e Be bot CALS #2, WRITE HEADER ea 
cCaF gf He tba) MOVL RO. STAT : 7798 
76 7$:  —- BLBS STA s, : | 
03 008s §F koors an || ee ; 7804, 
4 7C 8$: 3 
MPB 7(HEADER), #2 : 
eet ; 
1A F996 $e $e Ae || RAL ol4. 108 ; 7805, 
0 4S 33 008 Bea. 10$ ¢ 7806 
x os bk OAT SOne8 CHP ACFIBD, Digs, 
09 Ae 98 90096 TSTB = -9¢F 1B) : | 
A 13 Soo og, eat, 08 | roe 
1 Dd 00098 9$: : 
3¢ ASOD 9090 PUSHL 6 72. DOP MODIFY USAGE * 281 
cr 02 FB 000A0 CALLS bg : 781 
ees a ES a0n3 108: ROWE Ready, EXT_FILE_ID : oe 
fe AD 95 AS BO 000 nov 1S(HEADER) , EXT=FILE-10+4 : 781 
10 11 000 BR : 
50 01 _A3 QA HOVAU' {HEADERICROJ. MAP_ POINTER : 7824 
50 6340 5E MOVL § 2(MAP POINTER), ERT_FILE_ID 2 9856 
7 re OAD Be sie EMAREAT RIT RO 3 78c8 
30 a 6° 00 BLBS G9eRO) 7 17$ : 7829 
3¢ 7B 65 sty FAT FILE_ID : 
oe TsTW EXT FILE_ID+4 i cane 
FC a0 } TST iis FILE_1D+4 
8 £996 «69 & BLBS  GUAL+14, 178 ; 7832 
x | eee lee ert rns, poet oe 
FC OA 8 MOVAB EXT FIL 1D : oR 
F8 AD OE OCAL “HERDER HEADER > 784 
| muse ETE den 
3 : 
ro CA? Ftd iS lPaoen faa 
(B18 4 D MOVL Are ae 3 7846 | 
re i ROVL STATUS, RO , 
50 a” 0 T : : 7854. 
7 MOVE #1, RO : 
50 o1 89 RET . 


STAACP Standalone ACP 1b-56 $ep-1984 00:42: AX-11 Bliss-32 V4.0-74 
voe-000 STA_Q10 = stand-alone Q10 dispatcher 14-$ $p-1 380 99:82:88 BACKUP.SRC STAACP 163061 
3; 6345 7855 1 ZSBTTL 'STA_QIO = stand-alone Q10 dispatcher 

; 6 $ g § } GLOBAL ROUTINE STA_QIO (EFN,CHAN,FUNC,1OSB, CSTADR, ASTPRM,P1,P2,P3,P4,P5,P6)= 
: g 7 1 144 

: 6 § 7 25 1; 

3; 6550 7860 1 | FUNCTIONAL DESCRIPTION: 

$ ° 1 1 1 This routine is the dispatcher for standalone ACP Q10 functions. 

i Be2g TRS 1 i INPUT PARAMETERS: 

3 2 : f : : ; As for $Q10(W) system service. 

3; 6 $ 7 06 1 i IMPLICIT INPUTS: 

3; 6 7 1! INPUT_MT - Pointer to MIL for input volume set. 

3 ° : f re ! OUTPUT_MTL - Pointer to MTL for output volume set. 

3; 6 ress 1 i OUTPUT PARAMETERS: 

3 6361 7871 1: NONE 

3; 6 ¢ rere 1 i 

3; 6 7875 1 ! IMPLICIT OUTPUTS: 

3 tre: 7874 1! NONE 

3; 6365 7875 1! 

; 0706 7 A 1 i ROUTINE VALUE: 

3; 636 7877 1/3 Completion status. 

5 $308 7878 1! 

3; 6369 7879 1: SIDE — 

3 o379 7880 1! ONE 

3; 6371 7881 1! 

3 o37¢ 7 o6 1 !-- 

3; 637 7 1 

8 oars 7884 BEGIN 

3 6375 7885 MAP 

3 e378 78 FUNC: © BBLO 0 function code 

> 637 78 10SB: REF OFEETOR a word)! 7 1/0 status biock 

3; 6378 7888 LOCAL 

3; 6379 7889 STATUS; 

3; 6380 7890 BUILTIN 

.: : 

> $38 789 

3 Patt 78 J -10SB NEQ 0 

3; 6385 7895 

3; 6386 789 BEGIN 

3; 6387 789 10SB8(0) = 0; 

3 6 7898 10S8C1) = 0; 

3; 6 7899 10SB § = 0; 

3; 6390 7900 10SB = 0; 

3 ° $3 asi} END; 

: 639 790 

3 6394 7904 ! Validate the channel number. The standalone ACP uses special channel numbers 
3; 6395 7905 ' Larger than 16 bits to avoid interacting with VMS channel numbers, which are 
5 0298 gee ! invalid here. Set CURRENT_MTL to point to the MIL for the selected volume 
: e 9 790 i set. 

8399 4909 5 it 

3; 6400 7910 BEGIN 

3; 6401 7911 SELECTONE .CHAN OF 


K 12 
STAACP Standalone ACP 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 
yoe~000 STA_Q10 = stand-alone Q10 dispatcher 13-308= 138s 99:32:83 EBACKUP. SRE STAACP.B32; 
64 791 SET 
6198 tH CSTA_IN_CHAN] 
6405 7915 BEGIN 
0408 91 CURRENT _MTL = .INPUT_MTL; 
640 1 »CURRENT_MTL EQL 0 
at's ; END; 
ba 8 0 CSTA_OUT CHAN): 
64 7921 GIA 
64 7 § CURRENT MTL = .OUTPUT_MITL; 
64 7 sCURRENT ATL EQL 0 
4 END; 

7925 

79 § COTHERWISE): 

79 TRUE; 

7928 

7929 TES 

7930 END 

7931 


THEN 
793 RETURN SS$_IVCHAN; 


: Dispatch to the function code specific processing routine. 
CASE... FUNCLIOSV.F CODE FROM I10$_WRITEVBLK TO IOS_MODIFY OF 


CIOS WRITEVBLK, 10$_READVBLK): 
BEGI 


FSISIS IIIS IS SSS ISIS SSS SSS SS 


OWONAVN EWN @O0DNOU EWN O 
> > > > > > 
BODOGOOO 
WWW 
COWDNAUE 
ERROR IPORORORONOPOPUNORIPUPUPOPURUPUIINUIUNUIIRI IIOP PURI ILA AAAS BBS AAS 


1 7941 N 
$ 794 STATUS = CALLG(.AP, STA_ROWRVBLK); 
3 794 IF .STATUS THEN RETURN <STATUS; 
34 7944 END; 
35 7945 
36 7946 CIO$_ACCESS): 
+ La a} STATUS = CALLG(.AP, STA_ACCESS); 
9 7949 C10$_CREATE): 
40 7950 STATUS = CALLG(.AP, STA_CREATE); 
6441 7951 
644 age: C10$_DEACCESS): 
644 795 STATUS = CALLG(.AP, STA_DEACCESS); 
6444 7954 
6445 epee CIO$_MODIFY): 
ones aes} STATUS = CALLG(.AP, STA_MODIFY); 
6448 a s+ CINRANGE, OUTRANGE): 
6449 795 STATUS = SS$_ILLIOFUNC; 
6450 7960 
path ast TES; 
ones 796 
poke: 7964 ' Return status in I0SB. 
otee 1383 if 10SB NEQ 0 
ore$ 7389 THEN 
6458 7968 BEGIN 


$2 


~ 


$ 
SS 


33339333 


LSEALALV 


z 


002A 


Standalone ACP 
STA_Q10 = stand-alone Q10 dispatcher 
I0SBL0) = .STATUS<0,16>; 

f END; 

7 
797 
jek, } Set the specified event flag and return success. 
7975 oon er ceCwe GPM: 
rere SS$_NORMAL 
797 END; 


001C¢ 608 
54 00000000° EF 9E 0000 
50 10 AC 00 000 
0 1 sted 
6 7¢ 4 F 
50 08 ac o00 11 18: 
OOOTFFFF BF 5 D1 00015 
06 is 001C 
64 FB AG D O85 
D 11 000 
OOO2FFFF 8F 0 D1 00024 2$ 
06 12 00028 
64 FC A4 DO 0002D 
06 12 00031 et 
50 013C 8F 3 808 3 4$: 
0038 
0c AC 9 99 EF tH 5$: 
06 5 CF 0003F 
0023 0014 0014 00043 6$ 
0038 000E 0031 00048 
52 F4 8F 9A 00051 7$: 
2c 11 $033 
F2CB CF C FA 82 8$: 
52 0 +4 ze 
A g £9 G05 
0 +4 ¢ 
4 3 6 
F2DA CF $6 FA re 9$: 
1 11 00 
F5F3 CF 6¢ FA 00 10$: 
FBBE CF 3 i 74 11$ 
omnia 05 11 oore | 
gf gf ) 158: 
10 AC 9 14$: 
9% 
10 BC 2 


1320-1966 90:42:29 


TA_QI0, Save R2,R3,R4 
URRENT_MTL, R4 
OSB, RO 
$ 

RO) 

HAN, RO 

Bee #131071 

NPUT_MTL, CURRENT_MTL 
nt #196607 

UTPUT_MTL, CURRENT_MTL 


#316, RO 


s 
C 
I 
1 
( 
C 


#0, #6, FUNC, R 
nS. #8, rs . 


(AP), STA_RDWRVBLK 
RO, STATUS 

STATUS, 14$ 
STATUS, RO 


(AP), STA_ACCESS 
(AP), STA_CREATE 
(AP), STA_DEACCESS 
13$ 


(AP), STA_MODIFY 
RO go TATUS 


—-A= 
Ww 
wn 


STATUS, a@10SB 


AX-11 Bliss-32 V4. 
BACKUP.SRCJSTAACP. 
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N 1 
STAACP Standalone ACP 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 
yoo 000 STA_QIOW = stand-alone Q10W dispatcher iz: ety 7 90:82:63 BACKUP.SRCJSTA AACE BB 3oe4 
; $468 7978 1 ZSBTTL "STA_Q1IOW = stand-alone Q10W dis spercher. 
; e eC ’ eo . o e o = 
ere adh } GLOBAL ROUTINE STA_QIOW (EFN, CHAN, FUNC, IOSB,ASTADR,ASTPRM,P1,P2,P3,P4,P5,P6) 
3 647 7981 1 !46 
3 647 79 ¢ 1! 
3 6474 79 1! esti DESCRIPTION: 
3 oe? ie : : This routine executes the $Q10W service for standalone functions. 
H gn78 79 1 ! INPUT PARAMETERS: 
3 on 78 7987 1! As for $Q10W system service. 
3: 647 7988 #1! 
3 on30 7989 1 =! IMPLICIT INPUTS: 
3; 6481 7990 1! NONE 
3 et) 7991 1! 
3 648 £26 1 ! OUTPUT PARAMETERS: 
3 6484 7995 1! NONE 
3 6485 7994 1! 
$ os86 7995 1°! IMPLICIT OUTPUTS: 
3 648 799% 1! NONE 
3 6488 7997 1! 
3 6489 7998 1! ROUTINE VALUE: 
3 6490 7999 1! Completion status. 
3 6491 8000 1! 
3 649 8001 1 ! SIDE EFFECTS: 
3 649 BOOS 2 NONE 
3 6494 4 1! 
3 6495 004 1 !-- 
3 6496 8005 1 
3 6497 4 BEGIN 
3 6698 007 LOCAL 
3 ¢h44 8008 STATUS; 
3; 6500 8009 BUILTIN 
: 6501 8010 AP; 
3 o2ne 8011 
3; 650 aois 
3: 6504 801 STATUS = CALLG(.AP, STA_QI10 
3 6505 8014 2 IF NOT .STATUS THEN RE TORN ératus: 
3; 6506 8015 SWAITFR(EFN=.EFN) 
: 6507 8016 1 END; 


0000 00000 eENTRY STA_QIOW, Save nothing 
FFSF CF 6C FA 900¢ CALLG (APY, STA_QI0 
OA 50 €9 0000 LBC ~—-_ STATUS, 
04 AC DD OO000A PUSHL FN 
000000006 00 01 FB 0000D CALLS #1, SYSSWAITFR 
04 00014 1$: RET 


Routine Size: 21 bytes, Routine Base: CODE + 3843 


Pow 


PUPP DV IV PVIVIVIV SUSU IIPS 
PWV ZOO NOME WN OOD NRMRWWOOD 
9 09 C9 Cd CO CO CO CO CO CD CDCOODCDODCDOOCSCOCRCNODOCD 0 wUW 
Ys OOOCOCCOCSCOCSOOCOOOCSOOCOOOoCoCoCSoSoO me 
WAWIWI WN NII DIPOPONININY PNPM SS 
DWONAOUSWN—OCONOULSWN—O0OOn OF 


PRAEAEARAAAAA AAA AAA AA AA AAA AAAa OH 4 
WAANIWINIAAIRIPIPIPONINININPINID 2 2 2 OO 


VIVANT 
ane SSe“y 
Onouw 


WDONOULSWN “OOOO Vilwn—oo0 
(C0 C0 Go Co C9 C0 CO Co 
Soooocea ~ +4 

-o ~ 


PAPAIN & 
SR SAA HANAHAN HELA LALAIIPIPINININIIIN IID a dn nk tn nt tk i kk i dd td td od ot = 2 


Be Se Se Se Se Ge Ge Be Se Ge Ge Ge Ge Fe Se Se Fe Ge Se Ge Fe Ge Se Ge Fe Se Ge Ge Ge Se Ge Se Ge Ge Se Ge Se Ge Se Se Ss Ss Se Se Se Se Se Ss Ge Se Ge 4S SH Se Gs ee 


13 
ne ACP 1b-se =1984 00:42:29 AX-11 Bliss-32 V4.0-74 
RIBUTES - read file attributes 12-808- 138 90:42:88 BACKUP’ SREISTAALP 03044 
ZSBTTL "READ_ATTRIBUTES = sead file attributes’ 
ROUTINE READ_ATTRIBUTES (HEADER, ATRLIST,FIB)= 


lee 
' 
' FUNCTIONAL DESCRIPTION: : 
This routine processes an ACP attributes list, returning the = 
Ga cease the user. Only attributes that are required by BACKUP 
re pro ed. 


INPUT PARAMETERS: 
HEADER - Pointer to file header. 
ATRLIST - Pointer to ACP attributes List. 
FIB - Address of the FIB 


IMPLICIT INPUTS: 
CURRENT _MTL - Pointer to MTL for selected volume set. 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


Completion status, SS$_NORMAL or SS$_BADATTRIB. 
SIDE EFFECTS: 
NONE 


ecein 
= HEADER: REF BBLOCK; ! Pointer to file header 
ATR: REF BBLOCK; ! Pointer to attribute List 
ATR = whe 
WHILE .ATRLATR$W_TYPE) NEQ 0 DO 
BEGIN 
LOCAL 
S_LEN, ' Source length for move 
S_ADR, ' Source address for move 
TEMP_AREA: BBLOCKL10), ! Temporary buffer _ 
ACL_ATR; ! True if an ACL attribute 


ACL_ATR = FALSE; 
SELECTONE -ATRCATRSW_TYPE) OF 


ooee "aaa 
S_LEN = FATSC_LENGTH; 
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STAACP Standalone ACP 1b-5¢ -1984 00:42:29 AX-11 Bliss-32 V4.0-74 P 
¥04-500 READ_ATTRIBUTES = read file attributes 1 ~3007 138% 90:32:83 YBACKUP  SRe STAACP.B32; aoe? 4 
; 65 074 4 S_ADR = HEADERCFH2$W_RECATTRI; 
; 6367 8075 4 IF .HEADERCFH2$8_STROCLEV) EQL 1 
; 6568 B76 4 THEN 
: 6969 8077 4 S_ADR = HEADERCFH1$W_RECATTRI; 
3 63 0 8078 END; 
: 6571 807 
: 6978 080 
: 657 8081 CATRSC_STATBLK): 
> 6574 808¢ 4 BEGIN 
: 6575 8083 4 LOCAL 
: 6576 8084 4 WCB: REF BBLOCK; 
: 6577 8085 4 
: 6578 086 4 S_LEN = 8; 
: 6579 8087 4 S"ADR = TEMP_AREA | 
; 6580 8088 4 TEMP_AREALO,0,3 6 0; 
: 6581 8089 4 WCB = .CURRENT MTLCMTL WINDOW); 
: 6982 8090 4 IF .WCB EQL O TH TORN SS$_BADATTRIB; | 
; 658 8091 4 IF .WCBCWCB_LINK) EQL 0 AND .@CBCWCB_SIZEJ EQL 1 | 
> 6584 809¢ 4 THEN | 
: 6585 8093 4 TEMP_AREACLO,0,32,0] = 
3 6586 8094 4 ROT(.BBLOCKCWCBCWCB_S_HEADER,0,0,0], WCB_LBNJ, 16); 
> 6587 8095 4 TEMP_AREAL4,0,32,0] = ROT(.CURRENT_MTLCMTL_FILESTZEJ, 16); 
: 6588 8096 END; 
3 6589 8097 
: 6590 8098 
: 6591 8099 CATRSC_HEADER): 
: 6592 8100 4 BEGIN 
; 6593 8101 4 S_LEN = 512; 
> 6594 8102 4 S“ADR = .HEADER; 
; 6595 8103 3 END; 
: 6596 8104 3 
> 6597 8105 
: 6598 8106 3 CATRSC_UIC): 
: 6599 8107 4 BEGIN 
: 6600 8108 4 S_LEN = 4; 
3 6601 8109 4 ADR = HEADERCFH2$L_FILEOWNER); 
> 660 8110 4 IF .HEADERLFH2$B_STROCLEV] EQL 1 
; 660 8111 4 
3 6604 Big § BEGIN 
: 6605 8113 5 TEMP_AREA<O,16> = .HEADERCFH1$B_UICMEMBER); 
> 6606 8114 5 TEMP~AREA<16,16> = .HEADERLFH1$8_UICGROUPJ: 
3 6607 8115 5 S_ADR = TEMP_AREA; 
: 6608 8116 4 END; 
: 6609 B17 END; 
: 6610 118 
> 6611 811 
: 6612 120 CATRSC_UCHAR]: 
> 661 121 4 BEGIN 
+ 6614 1 : 4 “LEN = 4; 
> 6615 8123 4 = HEADERCFH2SL_FILECHAR); 
> 6616 B124 4 IF .HEADERCFH2$B_STROCLEV) EQL 1 
> 6617 125 4 
: 6618 1 6 3 BEGIN 
; 6619 1 TEMP_AREA<O,32> = .HEADERCFH1SW_FILECHAR); 
> 6620 128 5 S_ADR = TEMP_AREA; 
3: 6621 129 4 END; 
3 6622 8130 3 END; 
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STAACP Standalone ACP 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 P 1 
y04-500 READ_ATTRIBUTES = read file attributes 1eree= ihe 99:82:63 Hach Ot he§sF2 Mb 05544 age 73) 
; 6623 131 

3; 6624 1 § 

3 66 1 CATRSC_EXTFID: 

: 88 138 ¢ GF NEADERCFH2$B. STRUCLEV] NEO 2 

; 66 § 81 6 4 gwen fe RETURN SS$_BADATTRIB; 

3 6630 8138 4 S"ADR = HEADERCFH2$W LEXT_F ID]; 

; 6631 139 END; 

: 66 : 140 

: 663 141 

; 66 148 LATRS$C_SEGNUM): 

+ 6635 145 4 BEGIN 

: 66 144 & IF .HEADERCFH2$B_STRUCLEV] NEQ 2 

: ee3s B14 4 I THe RE RETURN SS$_BADATTRIB; 

: 6639 B147 4 SADR = GEADERCFH2SW. SEG_NUMI; 

> 6640 8148 END; 

: 6641 8149 

3 664¢ 8150 CATRSC_ADDACLENT, ATRSC_DELETEACL, 

> 664 8151 ; ATRSC_READACL, ATRSC_ACLLENGTH): 

+ 6644 815¢ IF~ HEAD DERCFHZSB. STRUCLEV] EQL 2 

> 6645 8153 3 THEN 

3 6646 8154 4% BEGIN 

+ 6647 8155 4 ACL_DISPATCH (. ATR ATRSW_TYPE], -ATREATRSW_ $12€), 
> 6648 8156 4 RCATRSL_ADDR], 
> 6649 8157 4 ACL_ATR = TRUE; 

: 6650 8158 4 E 

: 6651 8159 3 ELSE S_LEN = 0; 

; 665¢ 8160 ; 

: 665 8161 

> 6654 816¢ 3 COTHERWISE): 

: 6655 816 ; RETURN SS$_BADATTRIB; 

> 6656 8164 

: 6657 8165 

: 6658 166 TES; 

> 6659 8167 

: 6660 8168 3 

> 6661 8169 IF NOT .ACL_A 

3 6662 8170 THEN EwScoPy m, _LEN, .S_ADR, 0, .ATRCATRSW_SIZEJ, .ATRCATRSL_ADDR)); 
3 6664 817¢ END: 

+ 6665 8175 

3 gees B15 SS$_NORMAL 

3; 6668 176 1 END; 


007C 00000 READ _ATIRIGUTES: 


s oc «9 an00e WORD ‘Saye R2-R3-R4,RS.RO ; 8018 
rt eee Hs 


' 


NA Ms WW hee NCO - nr ed A Ld oo oOo M~wrw Mem nw ~ 
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ws So oo Sc So SoOoOSoSo & ooo Sor Se &§— Seer MKr SK K— KK Oe eK ae 
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Routine Base: CODE + 3858 


301 bytes, 
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STAACP Standalone ACP 18-50 =| AX-11 Bliss-32 V4.0-74 Pa 4 
904-500 TO_ODS1_DATE = format ODS-1 date ets 7 90: ¢f: 83 BACKUP. SRCJST Sate “B35: *¢ att si 
: 6670 177 1 %SBTTL 'T0_ODS1_DATE = format ops- -1 date. 

; 6671 178 i GLOBAL ROUTINE TO_ODS1_DATE ts SRC,DST): NOVALUE= 

: Serf i oyie 

> 6675 182 1: FUNCTIONAL DESCRIPTION: 

$ oer : i : This routine converts a date in 64-bit format to ODS-1 format. 

: 6678 185 1 ' INPUT PARAMETERS: 

3; 6679 1 1 i SRC - Address of quadword time value. 

F eene } : DST - Address of 135-byte output buffer. 

3 668 189 1! IMPLICIT INPUTS: 

: See we i —_ 

> 6685 198 1 | QUTPUT PARAMETERS: 

2) aes fe 

3 6688 8195 1 | IMPLICIT OUTPUTS: 

050 bs _ 

: 6691 8198 1! ROUTINE VALUE: 

Be Be yi ten 

; pees 8201 1! SIDE EFFECTS: 

> 6695 820¢ 1 NONE 

: 6696 8203 1! 

: 6697 8204 1 i- 

: 6698 8205 1 

OR ta 

: 6701 8208 aaa DST: REF BBLOCK; ! Pointer to destination 
: 670 8210 DESC: vECTORE2 ' Descriptor for buffer 
> 6704 8211 BUFFER: BBLOCKL23); i Buffer for converted time 
we BK 

; one ar : If the time value is 0, return the output area filled with binary zeros. 
: 6709 216 if ..SRC EQL 0 

: rio S516 ME Maccin 

3 rig 8219 CHSFILL(O, 13, .DST); 

> 6714 $f END; 

: gre $558 

; 244 3 H Convert the value. 

> 6719 6 psctt ! Make descriptor 

> 6720 DESCL1) = ericee: 

: 6721 8 IMCTIMBUF=DESC, TIMADR=.SRC); ' Convert time value 

> 67 é = .BUFFERCO,0,16,0): i Outpu 

3 67. 0 s peree 7 08 : ' Output MMM 

+ Brse : = BUFFETT 36.9604 i Qutoue Hl 

. = e e e e e . 

: 6726 $538 = .BUFFER 12.8.16.03; ! Output MM 


H 13 | 

STAACP Standalone ACP 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 pP 5 

904-500 70.0DS1_DATE = format ODS-1 date 1exgee= 488 99:82:83 | ach Obiess#e ats: 53: age 233 | 

6727 DSTC11,0,16,0] = .BUFFERL18,0,16,0];  ! Output $$ | 
pe Bsee ¢ part x yagte 


-EXTRN SYSSASCTIM 


003 0 ENTRY 185 ng DATE, Save R2, R3,R4,R5 § 
SE 20 C2 000 SUBL2 : 
04 fs b 05 sit ask ane * + 8216, 
0D 00 6E oe o 2¢ A MOVCS i. (SP), #0, #13, aDST + 8219 
04 00011 RET ; 8 18 
18 AE 17 D0 0012 1$ MOVL #23, DESC : $ 
iC «OAL 6 9€ 0001 MOVAB BUFFER, DESC +4 : 3 
—E D4 OOOIA LRL = =( SP : 82 
04 AC DD O00IC PUSHL SRC : 
20 AE OF OO1F SHAB DESC ; 
000000006 00 04 FB 00024 CALLS #4, SYSSASCTIM F 
50 08 AC 00 00028 DSf, RO + 8229 
60 6— B80 990 F VW BUFFER, (RO) : 
02 ad 18 00 03 AE FO 00032 INSV  BUFFER+3, #0, #24, 2(RO) + 8230 
05 Ao 09 AE B0 00039 VW  BUFFER+9. 5(RO) + 8231 
07 AO OC AE B80 00035 MOVW BUFFER*1¢, 7(RO) ; 823¢ 
09 AO OF AE B60 449 MOVW BUFFER+15, 9(RO) ; 8 3 
0B AO 12 AE BO 00048 MOVW BUFFER+18, 11(RO) + 8234 
04 00040 RET : 8235 


; Routine Size: 78 bytes, Routine Base: CODE + 3985 


13 
Standalone ACP 1b-5¢ -1984 00:42: AX-11 Bliss-32 V4.0-74 Pa 
WRITE_ATTRIBUTES = write file attributes 1 ~Sep-19 4 90:82:63 BACKUP. SRC STAACP 3064 ad} 4 
| 

8 1 ZSBTTL ‘WRITE_ATTRIBUTES = write file attributes’ 
: ; ROUTINE WRITE_ATTRIBUTES (HEADER,ATR_LIST,FIB)= 
; 5 1 S44 
: 40 1! 
; 41 1 ! FUNCTIONAL DESCRIPTION: 
; tg } : This routine processes an ACP attributes list, writing the specified 
: 4 : attributes to the header. Only attributes that are required by BACKUP 
: rt} : : are processed. 
3 4g 1 ! INPUT PARAMETERS: 
3 47 1! HEADER - Pointer to file header. 
; 46 1! ATR_LIST = Pointer to ACP attributes List. 
; r4 : FIB - Address of the FIB 
; 8251 1 ! IMPLICIT INPUTS: | 
7 Ng | Spee | 
; 4 54 1 ! OUTPUT PARAMETERS: 
; 22 3:3 NONE 
; 8 26 1! } 
3 8257 1 ! IMPLICIT OUTPUTS: | 
; 8258 1! NONE | 
3 8259 1! 
3 8260 1 ! ROUTINE VALUE: 
; eset : } Completion status, SSS_NORMAL or SS$_BADATTRIB. 
; 508 1 ! SIDE EFFECTS: 
3 8264 1! NONE 
; 8267 1 
3 8268 BEGIN 
; 8269 2 MAP 
; agit HEADER: REF BBLOCK; ! Pointer to file header | 
; 8271 LOCAL | 
5 : % TR: REF BBLOCK, ! Pointer to attribute List 
3 7 IDENT_AREA: REF BBLOCK, ' Pointer to ident area of header 
3 8 a IDENT_LEN; ! Length of ident area 
3 78 } 
: 7 ATR = .ATR_LIST; 
3 a IDENT_AREA = HEADER + gt Blt aE ® Si 
; 7 IDENT_LEN = ( {HEADERCFH2$B_MPOF FSET -  HEADERCFH $8_IDOFFSET)) * 2; 
: 80 WHILE .ATRCATRS$W_TYPE] NEQ 0 DO 
$ 81 BEGIN | 
3 Ht LOCAL 
: 8 S_LEN, ! Source length for move 
; S_ADR, 4 source address for move 
3 5 D_LEN, ! Destination length for move 
3 D_ADR ! Destination address for move 
3 TEMP AREA: BBLOCK(C13), ! Yemporary buffer 
: 83 ACL_ATR; ! True if ACL attribute 
; 91 S_LEN = .ATR ATReu SIZE}: 
; 92 SADR = .ATRCATRSL—ADDRI: 


13 
STAACP Standalone ACP 1a-Se -1984 00:42: AX-11 Bliss-32 V4.0-74 P 7 
voe-000 URITE-ATIRIBUTES = write file attributes Ve-Sep-1984 44:84:63  EBACKUPrSRESSTAACP 030¢4 29° 255 
7 | 
; 6789 95 ACL_ATR = FALSE; 
3; 67 39 CASE -ATRCATRSW_TYPE] FROM ATRSC_UCHAR TO ATRSC_SEGNUM OF 
3 e789 44 SET 
> 679 99 | 
3 6794 00 CATRSC UCHAR): 
3; 6795 01 4 GIN 
: 6796 0 4 LITERAL 
: 679 03 4 PROTECTED_CHAR= | 
3; 6798 04 4 FCHSM_ TIG OR 
3; 6799 05 4 FCHSM_SPOOL OR 
; 6800 BS 4 FCHSM_BADBLOCK OR 
; 6801 07 4 FCHSM—MARKDEL , 
; one 308 4 ODS1_CHAR= 
; 680 309 4 FCHSM_NOBACKUP 
3; 6804 310 4 FCHSM_READCHECK OR 
3; 6805 $1) 4 FCHSM_WRITCHECK OR 
; 6806 12 4 FCHSM_CONTIGB OR | 
3; 6807 31 4 FCHSM_LOCKED OR 
3; 6808 oe 4 FCHSM_CONTIG OR | 
3 6809 H 15 4 FCHSM-SPOOL OR 
; 6810 318 4 FCHSM_BADBLOCK OR 
3; 6811 oa 4 FCHSM_MARKDEL; 
; eae 318 4 
3; 681 8319 4 
3: 6814 8320 4 D_LEN = 4; 
> 6815 8321 4 D-ADR = HEADERCFH2$L_FILECHARI; 
: 6816 S356 & 1F -HEADERCFH2$B_STROCLEV] EQL 
3; 6817 83 4 THEN 
: 6818 HY 4 2 BEGIN 
> 6819 8325 D_LEN = 2; 
3 6820 8326 5 D-ADR = HEADERCFH1$W_FILECHAR]; 
; perp Ht i ? END; 
: 6898 329 4 | 
; oeee a0 $ Get value from user attribute List. | 
3 6826 332 4 CHSCOPY(.S_LEN, .S_ADR, 0, .D_LEN, TEMP_AREA); 
3 ets 3 4 
; 6828 334 4 
: 6836 3 5 ? : Get protected characteristics from file header. 
3 6831 38 4 TEMP_AREA = 
3 683¢ 338 4 T.TEMP_AREA AND NOT PROTECTED CHAR) OR 
: 685 x8 4 (2 (.D_ADR)<0,.D_LEN®8> AND PROTECTED_CHAR); 
3 ret} 41 4 
3 tt) 35 $ Make sure characteristics bits not used in ODS-1 are clear. | 
3 6838 . @ if .HEADERCFH2$B_STRUCLEV) EQL 1 
3; 6839 5 4 THEN 
: one9 r¢] ? TEMP_AREA = .TEMP_AREA AND ODS1_CHAR; 
: ork $ 4 
3; 684 4 S_LEN = .D_LEN; 


K 13 
STAACP Standalone ACP 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 Page 
904-500 WRITE_ATTRIBUTES = write file attributes 19-300- 1382 90:02:68 YBACKUP’ SRe STALE O3007 . (3 
; & & S_ADR = TEMP_AREA; 
3 4 ; END; 
; 8 CATRSC_RECATTRI: 
3 5 4 BEGIN 
; 6850 4 D_LEN = FATSC ENGTH: 
3 oS 1 4 D-ADR = HEADERLFH2$W_RECATTRI; 
$ g 4 IF_.HEADERCFH2SB_STROCLEV] EQL 1 
3; 685 4 THEN 
; pete 4 ia D_ADR = HEADERCFHISW_RECATTRI; 
3 0828 
3; 685 
$ 6628 8 CATRSC_ASCDATES): 
3; 6859 4 BEGIN 
3; 6860 4 D_LEN = 2; 
: 6861 67 4 D-ADR = IDENT_AREACF12$W_REVISION); 
3 686¢ 8368 4 IF .HEADERCFH2$B_STRUCLEV) EQL 1 
3; 686 : 9 4 THEN 
3 6864 0 4 D_ADR = IDENT_AREALF11$W_REVISION 
3; 6865 8371 4 ELS 
3 6866 8 ue 4 IF .IDENT_LEN LSSU SBYTEOFFSET(FI2$W_REVISION) + 2 
3: 6867 8375 4 
3; 6868 te 4 D_LEN = 0; 
; rept Sao END; 
3; 6870 376 
3; 6871 8377 
3; 687 8378 CATRSC_CREDATE): 
3 687 8379 4 BEGIN 
3; 6874 8 30 & D_LEN = 8; 
3 6875 8381 4 D-ADR = IDENT_AREACF12$Q_CREDATE); 
3 6876 $336 4 IF .HEADERCFH2$8_STRUCLEV) EQ. 1 
3; 6877 383 4 THEN 
3 6878 8384 § BEGIN 
3 6879 8385 5 D_ADR = IDENT_AREACFI1$T_CREDATE); 
: 6880 8386 5 TO_ODS1_DATE(7S_ADR, TEMP_AREA); 
3 6881 8387 5 s_CEN ="13; 
: 6882 388 S"ADR = TEMP AREA: 
3; 688 8389 D_LEN = 13; 
3 6884 390 ERD 
3 6885 391 4 ELSE 
3 6886 333 ‘ IF jJOENT_LEN LSSU SBYTEOFFSET(FI2$Q_CREDATE) + 8 
3 rer 8394 4 _ D_LEN = 0; 
3; 6890 36 
3 91 9 
> 689 98 CATRSC_REVDATE): 
> 689 4 BEGIN 
3 6894 00 4 D_LEN = 8; 
> 6895 401 4 ADR = IDENT _AREACF12$Q_REVDATE); 
3 68 40¢ 4 IF .HEADERCFH2$8_STRUCLEV) EQL 1 
3 689 4 4 THEN 
3: 6898 4 BEGIN 
3 6899 405 D_ADR = IDENT_AREACFI1$T_REVDATE); 
: 6900 8406 TO_ODS1_DATE(7S_ADR, TEMP_AREA); 
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De 


LEN = 13; 
ADR = TEAP_AREA; 
LEN = 1 


CATRSC_EXPDATE): 
BEGIN 


p -LEN 
= NT_AREACF 12$0 KPDATE]; 
1p” ZHEADER FH2$B_STRUCLEVJ] EQL 71 


DENT_AREALCF11$T EXPDATE); 
ATE(ZS_ADR, TEMP_AREA); 


WII WIR POROPIPOPIPININN 4 4 OOO 


WR 20 OONOUFSWN 29 OONAUE WIN | 0 OD NOAU EWN 9 ODONAUES WN (OCONAOUSWNO0OOnN -13 
x=" 
m 
ze 


CATRSC_BAKDATE): 
oe 
ADR = IDENT_AREACF12$0 ee 
IF — FH2$B_STRUCLEV) EQL 1 
ELS D_LEN = 0 
FF feet Lee LSSU SBYTEOFFSET(FI2$Q_BAKDATE) + 8 


D_LEN = 0; 


PD at at at et tet ek ee hb od eh ad ahead 


CATRSC_UICI: 
BEGIN 


. (.$_ADR) <0, 16>; 
> (CSTADR)<16, 165; 


LER = 2; 
ADR = TEMP_AREA; 
LEN = 2 
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STAACP Standalone ACP $ep-1984 242: 
WRITE_ATTRIBUTES = write file attributes 16-Sep-1984 90:32:88 

: 6958 4 D_ADR = HEADERCFH1$W_FILEOWNER]; 

: 6959 rhe: END; We. 

: 6960 466 END; 

3; 6961 4 

3 696 4 : 

3 696 4 CATRSC_FPRO): 

3 6964 4, 9 4 BEGIN 

> 6965 471 & D_LEN = 2; 

3 6966 are 4 D-ADR = HEADERCFH2$W_FILEPROT); 

; 6967 Ags 4 ip” .MEADERLFH2 _STROCLEV) EQi ‘1 

: 6969 rit: D_ADR = HEADERCFH1$W_FILEPROT); 

3; 69 rg END; 

3; 4971 7 

3; 697 78 

: 697 8479 CATRSC_RPRO): 

> 6974 0 4 BEGIN 

: 6975 8481 4 p _LEN 

: 697 84 2 4 D-ADR = = diapence FH2$W_RECPROTI; 

: 697 8483 4 IF .HEADERLFH2$B_STR TROCE EV] EQL 1 

: 6978 8484 4 HEN 

: 6979 8485 4 D_LEN = 0; 

: 6980 8486 END; 

: 6981 84 

: 698 488 

3 698: 8489 CATRSC_JOURNALJ: 

> 6984 8490 4 BEGIN 

: 6985 8491 4 D_LEN = = 2; 

: 6986 8492 4 ADR = HEADERCFH2SW JOURNAL; 

: 6987 B49 4 IF ONEADERC FAS 2$B8_STROCLEV] EQL 1 

: 6988 94 & THEN 

: 6989 8495 4 D_LEN = 0; 

: 6990 8496 END; 

: 6991 49 

: 699 8498 

> 699 99 3 CATRSC_ACLEVEL): 

+ 6994 8500 4 BEGIN 

> 6995 8501 4 D_ LEN 

: 6996 808 4 ADR = = NeADERCFH2Se ACC_MODE); 

> 699 890 4 vr -HEADERLFH2$8_STROCLEV] EQL 1 

> 6998 504 4 

: 6999 8505 4 D_LEN = 0; 

: 7000 206 END; 

: 7001 23 

: 7 : 508 

: 700 8509 CATRSC_EXTFID): 

> 7004 8510 4 

: 7005 511 4 IF .HEADERCFH2$B_STRUCLEV) NEQ 2 

: 7006 Big 4 THEN RETURN SS$_BADATTRIB; 

: 700 513 4 D_LEN 

: 7008 514 4 ie ADR = > AEADERCFH2SU_ EXT_FIDJ; 

3 7 515 ERD; 

: 7010 316 

: 7011 51 

: 7 ig 318 CATRSC_SEGNUM): 

: 701 519 4% N 

: 7014 520 4 IF ,HEADERCFH2$B_STRUCLEV] NEQ 2 


AX-11 Bliss-32 V 
BACKUP. SRC STAACP 


N 13 


STAACP Standalone ACP Sep- Ax-11 OL is =32 V4.0-7 
04 WRITE_AT TRIBUTES = write file attributes 12: 307) 382 90: ¢¢: 83 BACKUP. SRCISTAACP. B35; 
: 7015 1 4 THEN | RETURN SS$_BADATTRIB; 

3 7 1 2 ¢ 4 DL ery 

3 f \ b-ADR = = HEADERCFH2SW_ SEG_NUMJ; 

: 1018 ; 

: 7021 2 $ CATRSC_ADDACLENT, ATRSC_DELETEA cL, 

; £0 3 2 8 ; ATRSC-READACL, ATRSC_ACLLENGTH 

> 7024 530 4 IF ,HEADERCFH2$B STRUCL VJ EQL 

> 7025 531 4 THEN ACL_DISPATCA ( “ATREATR Su" ripe), ; -ATRCATRSW. $12E), 

: 70 § 5 é 4 RCATRSL-ADDR 

: 70 533 4 ACL_ATR = TRUE; 

3: 7028 534 END; 

3 4 9 535 

: 7 85 : 

Be ORE Ha AEM rae 

; rOas S235 ¥ : 

: 7034 8540 

: 7035 8541 TES; 

: 7036 8542 

; rO38 Hae IF NOT .ACL_ATR THEN CHSCOPY(.S_LEN, .S_ADR, 0, .D_LEN, .D_ADR) 
: 7039 8545 ATR = .ATR ? 8B; Ti om eens 
: 7040 8946 END; 

> 7041 854 

: 704 8548 

: 7046 8549 2 SS$_NORMAL 

: 7044 8550 1 END; 


OFFC 00000 WRITE sae * Nites 
WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 


SE 20 ¢2 0000 SUBL2 #32, SP 
08 AE 08 AC 00 0000 MOVL ATR_LIST, ATR 
59 04 AC 9000A MOVL HEADER, R9 
50 69 A B00 MOVZBL (R9) 0 
5B 6940 3€ 0001 MOVAW R99 EROJ IDENT_AREA 
57 01 A9 9A 00015 HOVZBL 1(R9), R? 
57 50 ce 0019 SUBL2 RO, 
04 AE 57 01 001C ASHL #1. R 7, IDENT. LEN 
50 08 AE 02 4 0021 1$: ADDL3 #2 
51 60 99 $ MOVZ2WL (R ROD. TR 
03 1 6 BNEQ 
0216 : 028 BRW + 
58 08 BE C OO0ZE 28 MOVZWL aATR S LEN 
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«EXTRN LIBSSIGNAL 
PSECT SUMMARY 


; Name Bytes Attributes 

; COMMON 2124 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVR,NOPIC,ALIGN(2) 
: DATA 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3; CODE 15387 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


Tie eR ele ee Ee eer Symbols ----- -- Pages Processing 
: File Total Loaded Percent Mapped Time 

; _$255SDUA28: CSYSLIBILIB.L32;1 18619 328 1 1000 00:02.2 
; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:STAACP/OBJ=OBJ$:STAACP MSRC$:STAACP/UPDATE=(ENH$: STAACP) 
3: Size: 15119 code + 2440 data bytes 

3; Run Time: : 

3; Elapsed Time: “a 7.3 

3; Lines/CPU Min: 1925 

3 Cece AS tag 2 21788 

3 qaaety ¥ Used: 802 pages 

3: Compilation Complete 
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